UTUBRO/84 


E 


- 


DO 


dr cueai 


NESTE NUMERO 
ii ii a iai 


Introd. a linguagem maquina Rajada dao d 
Ground Attack od parando hs À 

4 em linha iesennsarras É 

SP EASEL continvacao pese neradrãia É 
Dicas, Rotinas e Utilidades e tati dare vro T É 47 
Como vai q seu conhecimento de BÁSIC ecc. all 

Como definir Simbolos/Spectrum RAR PRE 
Lista dos progr. e jogos existentes ....... 1.18 19 
Novos programas mare ms aade o mo 2 


io ari ini iii 


C0ITORIARL - QUTUBRO-ES 


SS 


Temos hoje uma historia para contar e meditar. 


Em 1983 o nosso amigo e socio gerente da Fotomecanica Mabreu, 
aJudou-nos e convenceu-nos a passar esta nossa publicação de amadores, 
de fotocopia para jernal impresso. 


Começou então no numero 13 cum numero de sorte), uma serie que 
nensavamos não seria mais interrompida. 


Em 18 de Outubro, estava ainda o jornal de Setembro, na 
Fotocomposição.e o iornal de Outubro (este mesmo), estava pronto da 
nossa parte. 

conhecemos os atrasos a que o jornal tem estado sujeito, pais como não 
somos profissionais, não conseguimos Inpor nunca. um certo respeito 
aos tipografos e compositores, de modo a Que eles atirenm o jornal 
pronto na hora certa. 


Uczr amiga. conhecendo a nossa preocupação. e ao aperceber-se de que um 
jornal (24) ainda estava naquele estado e « outro (25) ja estava na 
nicha e sem lugar, tomou 3 iniciativa de levar & original de Outubro a 
outra Tipografia. 


Talvez não valha nada continuar com explicações pois certamente se 
apercebem que se uns se atrasavam cu outros necessitavam de dois meses 
para produzir um jornal. 


Rqui aparece o numero 25, envergonhado, Fotocopiado, mas preferimos 
enviar assim este exemplar, à imagem de um jornal Que sairia em 
Dezembro ou Janeiro. 

lizer que isto não acontecera mais ? ..... Bom, nessa nao Caimos, pois 
pode efectivamente, voltar a acontecer... o Que vamos e tentar tados, 
nos e a Fotomecanica Mabreu, que o jornal se atrase q menos possivel | 


Um grande abraço e de qualquer modo as nossas desculpas. 


“Blexandre Sousa: 


a 


CLUBE Zeo 


diciscet . masi Da a ca 


Autor: FERNANDO PRECES 
SACAVÉM 
(Cont. dos números anteriores) 
PARTE Ill — COMO FUNCIONA O Z80 


4.3. — As mnemónicas do Z80 (Continuação) 


Se o leitor mais curioso quiser deitar uma vista 
de olhos pelo interior do registo F, para ver o estado 
dos flags ao longo dos ensaios que se irão seguir, 
poderá introduzir no ponto que mais lhe interessar as 
e mnemónicas: 


PUSH AF 245 instrução qu colocar no 
ponto em que quiser saber 
/ o estado dos flags. 
POP HL 226 no final do ensaio e antes 
LD (NN), HL 34, N, N/ de RET 


Duas delas ainda não foram aqui mencionadas, 
mas por agora o importante é saber que o conteúdo 
do registo F fica ao seu dispôr no endereço NN e que, 


“depois de o transformar num número binário, poderá 
| conhecer o estado de cada fiag no ponto em que 
introduzir a instrução PUSH AF. 


INTRODUÇÃO À LINGUAGEM MÁQUINA 


1.º Ensaio: 

Mnemónicas Códigos Comentários 

-. 

LU A, = 50 62,50 arga de A 

LD B, + 50 6,50 cargo de B 

ADD A, B 128 Adição A — B 

LD B, O 6,0 Transporte 

LD E, À 79 l go resultado da adição 
RET 201 | pora o BASIC 


Verifica-se neste ensaio que o numero obtido 
(100) é o valor correcto da adição: 


2.º Ensaio: 

LDA, + 200 62,200 

LD B, + 100 6,100 

ADD A, B 128 (soma À - B) 
LD, B, O 6.0 

LD A, + 200 62,200 

LD E, A 79 

RET 201 


Neste ensaio repetimos o processo, mas 
camos que o computador nos dá um resultado erra: > 
(número obtido < > 300). 


O Z80 «sabe» que errou; porém como recebeu 
uma programação incorrecta para executar o preten- 
dicofez apenas o que se lhe ordenou. 

Vamos procurar entao uma solução para que 
tudo saia conforme. 

Sabemos, porque já o mencionâmos, que qual- 
quer registo ao ultrapassar o seu máximo de acumu- 
iação (255 para um registo simples e 65535 para um 
registo par) limpa e recomeça a acumular a partir daí. 
Sabemos também que, quando tal acontece, o Z80 
activa um flag do registro F (o «carry fiag») para 
marcar uma passagem de acumulação. 

Para que o carry flag possa estar no estado 
correcto antes de efectuarmos uma adição, é neces- 
sário encontrar uma instrução que Oo coloque a zero. 
(Reset). 

Não há no Assembler do Z80 uma instrução que 
se destine unicamente a esse fim; mas existe uma, 
AND A, que não atecta o conteúdo do registo e que 
faz reset ao Carry flag. 

Para que o estado desse flag seja adicionado ao 
registro À, deve ser usada uma instrução ADC, como 
vamos ver a seguir. 


3.º Ensaio: 


Programação adequada da adição com Carry flag. 


Mnemónicas Códigos Comentários 

AND À 167 Carry fiag reset 
LDA, = 200 62,200 

D B. + 100 0.100 

ADD A, B 128 Adição 

LD CA 19 Resultado em C 
LD 4,0 62,0 Limpo A 

ADC A, À 143 Soma Carry a À 
LDB, A 71 Resultado em B 
RET 201 


Assim, numa adição, se o resultado fôr < 256 
o registo B e carregado com «O» (valor do estado 


do Carry); se o resultado fôr > 255, o registo B e 


carregado com «1». 


Como o leitor pode verificar, este ensaio já nos 
assegura um resultado correcto de adição. 


- CLUBE Zso 


4.º Ensaio: 
Somas até 65535, não utilizando o registro HL. 


Vamos carregar o registo DE com o número 
16400 (Low Byte = 16 e High Byte = 64) e o re- 
gistro A com o número 255. Pretende-se colocar no 
registo BC o resultado da adição dos conteúdos dos 
registos DE e A. 


Mnemónicas Códigos Comentários 
LD DE, + 16400 17,16, 604 DE = 16400 
AND A 167 

LD A, + 255 62,255 A = 255 
ADD A, E 131 Soma A+ E 
LD CC. À — 79 Resultado em C 
LD A,O 62,0 Limpa A 
AD CAD 138 soma D em Carry 
LD B A 71 resultado em B 
RET 201 

5.º Ensaio: 


Somas até 65535, utilizando o registo HL. 


Vamos carregar o registro DE com o número 
16384 (Low Byte = 0 e High Byte — 64) e o registo 
HL com o número 6912. Pretende-se colocar no re- 
gisto BC o resultado da adição de DE com HL. 


Mnemónicas Códigos Comentários 
LD DE, — 16384 17, 0,04 DE = 16384 
LO HL,. + 6912 33 O, 27 HL= 6912 
ADD HL, DE 25 HL + DE 

LO E L A, 

LD B, H 68 

RET 201 


Como o máximo de acumulação dum registo par 
não excede 65535 (o maior número representado por 
2 bytes), um sistema para adicionar números supe- 
riores é um pouco mais complicado. Os mais utili- 
zados envoivem a utilização de algumas rotinas da 
ROM e umas quantas instruções que ainda não abor- 
damos. 

Usando -de imaginação e instruções já nossas 
conhecidas, é sempre possível engendrar alguns pro- 
cessos que, não sendo eficientes, podem no entanto 
adicionar tais números. 

Exemplifiguemos um método que utilize o Carry 
flag. 


6.º Ensaio: 


Resultado de adição > 65535 e < 131071 (al. 
cance do bit adicional do Carry flag) 


Mnemónicas Códigos Comentários 


LD DE, + 65000 17, 232, 253 DE = 65000 

LD BC, + 23000 1, 216, 89 BC = 23000 
LD A, O 62, O Limpa Aeo Carry 
LO HL,-D) 33, O, O Limpo HL 
ADD HL, DE 25 HL + DE 
ADD HL, BE 9 HL + BC 

LD (27000), HL 34, 120, 105 Carrega endereço 
ADC A, À 143 carry para A 
LD (27002), A O, 122, 105 carrega endereço 
RET 201 com carry 
Em Basic: 


REM INTRODUÇÃO DO COD./MAQ. em 27003 

LET NN = 27000 q 

RANDOMIZE USR (NN + 3) 

PRINT PEEK NN + 256 * PEEK (NN + 1) + 65536* 
PEEK (NN 4 2) 


As instruções: 


LD HL, O 
ADD HL, DE 


podem ser substituídas por: 


EX DE, HL Código 235 


Este ensaio é apenas demonstrativo. Mais tarde, 
após o estudo de todas as instruções do Z80 e das 
rotinas ROM, poderemos efectuar com eficiência to- 
das as operações aritméticas, sem ter que saltar À 4 
o BASIC. 


3.º subgrupo — As instruções de incrementação 


INC A 60 a 
INC H 36 » 
INCL 44 » 
INC B 4 a 
INC C 12 » 
INC D 20 » 
INC E 28 » 
INC (HL) 52 b 
INC (IX + d) 221,52, + d c 
INC (IY + d) 253, 52, + d » 
INC HL 35 d 
INC BC 3 » 
INC DE 19 » 
INC SP 51 » 
INC IX 221, 35 e 
INC IY 253, 35 » 


CLUBE Zao 


Estas instruções afectam todos os flags excepto 
o CARRY-FLAG e têm um tempo de execução de: 


Tempos N.º de bytes N.º ciclos M Nº ciclos T 
a 1 1 4 
y 1 3 1 
E 3 6 23 
d 1 1 6 
e 2 2 10 
As instruções INC (HL), INC (IX —- d) e 


INC (IY — d), somam 1 ao conteúdo do endereço 
memorizado em cada um desses registos. Todas as 
outras somam 1 ao número memorizado pelo res- 
pectivo registro. 


A diferença entre um e outro tipo de instrução 
situa-se no uso do parêntesis. 

Como existem instruções para incrementar indi- 
vidualmente cada uma das células dum registo par, 
executando a instrução INC sobre o byte mais signi- 
ficativo, podemos obter saltos positivos de 256 uni- 
dades (ver ensaio 2). 


Ensaio 1: (Incremento de N —1) 
LO BC, 255 +, 250, O 
INC BC 3 
RET 201 
PRINT USR X (R: 256) 
Ensaio 2: (Incremento de N — 256) 
LD BC, 255 1, 255, O 
INC B 4 
RET 201 
PRINTE USR X Em 211) 


Ensaio 3: (Incremento do conteúdo dum 
endereço) 
LD A, 200 62, 200 
LD (28000), A 50, 96, 109 
LD HL, 28000 33, 96, 109 
INC (HL) 52 
RET 201 
RANDOMIZE USR X 
PRINT PEEK 28000 
(RR: 201) 


GRUPO 7 — As Instruções de subtração 


Também neste grupo nos surgem 3 tipos dife- 


rentes de mnemónicas, que iremos tratar separada- 
mente. Estas são similares às do grupo 6, mas ds 
sinal contrário. 


qn retro po PROL es qruaga gra et) 


Pct de dero ADRs pa repeat quer mo o so emma cis serto para my 


a . 


eme sum cos 


Assim, poderemos estabelecer a seguinte ordem : 


de comparação. 


No primeiro subgrupo: 


Somar s. Carry — ADD 
Subtrair s, » — SUB 
No segundo subgrupo: 

Somar c Carry — ADC 
Subtrair c » — SBC 
No terceiro subgrupo: 

incrementar (-1) — INC 
Decrementar (—1) — DEC 


Como já constatamos na adição, quando um 
byte ultrapassa o seu máximo de acomuiação, volta 
a zero, sendo o Carry flag impulsionado para o es 
tado 1). 


Exemplo da passagem pelo valor máximo numa 
adição. 


+1 Carry o 2117174179 
» 1 » O 00000 00 
255 — 1 — 256 


Na subtracção, como vamos decrementar um 
byte, acontecerá o inverso. 


Exemplo da passagem pelo valor minimo, quando 


duma subtração. 


—1 Carry O byte 


O 00000 00 
» 1 do o 1177171 7%7T%%A4 


(Cont. no proximo numero) 


Vo nem re rm mam rO 


renome cimo cena tes onde 


DE a 


Maes ms 


Did do A dd 


1 0 qa comenta rRnUaSII EM Mr am 7 DO Mor 


pontuação. 


“tê 4 RE 2 VU “ 80 
dcco do e ND O a O na ão 
GROUND ATTACK - Jogo para o Spectrum 
Sergio aeee 
A Terra está a ser invadida por estranhos. Os 
seus habitantes despovoaram-na e viajam pelo es- 
paço, esperando que os intrusos abandonem o Pla- 
neta. 
Tu és os único que permaneces, para defender 
a base ALFA e impedir os invasores de destruir as 
cidades. 
Tudo o que tens a fazer é posicionar a nave 
inimiga na mira e disparar o raio laser. Atenção... | [pon tos 
tens um período limitado para eliminar os invasores | q | 
antes de aparecerem as cidades. ES Lud 
De cada vez que bombardeiam uma cidade eles Bina 
reabastecem-se de munições e voltam para destruir aeee 
outra. 
| dba puro consiste em emimcmad as ini | 2 LET hs=0: LET h6="NINGUEM.. 
tal modo que eles sejam convencidos que este Pla- . 
epi, E 3 FOR i=ld4 TO 155 
neta não lhes serve. 4 FOR Jg=2 TO 7: RERAD b 
Depois de passar o programa, use o comando as a, A (CHRS 1)+54,b: NEXT 
RUN e terás todas as instruções para jogar. 5 DATA 2,20,0,0,0,3,191,20,0,0 
v,0,0,192,255,0,162,32,49,59, 12? 
.255,227,19E,53,4,140,220,254,255 
TECLAS DE COMANDO: 199,3 
? DATA 0,9255,90,0,255,255,255, 
0, dós dos 26S sis ado iG io 6 
-— erda 8 — direita — disparar ; do: ; s , 
ada á 0,90,255,1589,231,195,195 ço 
255,254 25: 246, b40 254 192/120 
| | fi , ão = 4 ;jeeê,. & 
O sistema de pontos depende do nível de difi died A AO DA Cub a ara 
culdade que seleccionares (entre 20 e 100). Enquanto 1.15 : 15 48,81, 06.; Sa R 54 ; io 66 
a R 2: PARPER NE 
o tempo passa tens de localizar a nave inimiga e Ls pá 50 SUB 4000: INPUT “DIF TÉUL 
destruí-la. Conseguindo isso, tens 100 pontos a so- DADE? i2Z9-109) ;tco 
20 INK 2: DRHAU 255,0: LRAU 0,4 
mar ao contador. 26. DRAU 028848: DRAW D,-175 
Desde que 3 cidades sejam destruídas o jog 52 GO SUB 1090 
acaba. 24 GO SUB 15020 
2S LET Lf=3 
Zôo LET sc=o 
27 DIM agil,44) . 
Você está no comando da base estelar Alpha, E CET asa CET bobo Cet ceu: 
a estação de defesa do planeta. do X=INT iRND+ LET g=á: G 
5 mes poborsaa quintal mu r, SUB 3000: LET tcoztco-l: LET com 
Use as teclas 5, 6 e 8 para destruir as naves tico 
dia uia | 31 PRINT AT 15,17; PAPER 2; IN 
inimigas que invadem o seu planeta natal. k Fvpontos “;AT'T6' agr ) ns 
PR o ida AT AS, 17; "Tempo “;aT 
Teclas: 98 LET co=co-1: PRINT AT 19,17 
6 = FOGO | PAPER 2; INK 7:co; 
91 IF coz0 THEN FOR kz1 TO Lf: 
5 — ESQUERDA Es o é Ro Ea (RND%1S) +d, PAP 
4, G 
8 — DIREITA 92 IF ATTR (11,34-x)=12 AND co 
O se a AT 11,92-x; dando À 
A pontuação será obtida como se segue, | : LET ne no E pda pa 
O nível de dificuldade escolhido é um limite de A E a 3009: LET Lr=Lf-1: GO 
tempo que está sempre a descer. mass a ed OR INKEvyg="6" 
inimi O MEN LET Z=INT (RND&3): LET xXxex+ 
Quando acerta numa nave inimiga obtém 10 z-1. BEEP ,D0s, 
pontos mais o tempo. 110 IF INKEv$="S" AND x<68 THEN 
Se este for negativo, o tempo será reduzido na e ER iv a cad ENO x>-BB THE 
N LET xzx-1: BEEP .2005,x 


(OU 


CLUBE Zm ====s 


118 IF INKEY$g='6 THEN LET fal: 

PAPER 12: INK 7: FOR 1i=4 TO 8 ST 
EP à: BEEP .002,i: PRINT AT La f% 
v:lKeSAT à, DeFiliocmT La t+D) 
AT i,ae-t; “. LET f=t+2: NEXT 
1 

LE9 LET px=x+29 

121 IF x<2 THEN LET x=d 

122 IF x>15 THEN LET pxsd4é | 

130 PRINT AT 4,1; PAPER 83; INK 
P;agii,x TO Px) 

140 IF INKEvY$='58" AND 34-x=15 T 
HEN LET sC=sc+iDO+co PRINT RT a 
| 14; PAPER 1; INK 2, QDVER L;'Qr+ 
a": GO SUB SOU: GO TO 2000 

422560 TO 99 

So) LET Ffha9 

Sol PAPER À: INK 5 

soa LET tr=z15: FOR 4=18 TO 28 

S03 BEEP .0095,5: PRINT AT 9,95" 

LBLAT 9, trela SAT ho tr) 

“IM fed: o” 

Sg04 LET tr=tr-L: LET fh=fh-.3 

sos BEEP .oge,fh: PRINT AT fh,t 
peca tha)" DF: NEXT y 

82 RETURN 

300 PRINT AT 3,10; FAPER 2,” 

302 PRINT AT 2,10; PAPER 2;” 

303 PRINT AT 3, 3; PAPER 2, INK 
BIC IPiAT 3,88; SIT Bs 74] Tosa 
T 2,28; " 

304 PRINT ART 3,€; INK 7; PAPER 
L:MLCsAT o D;aA; do 

305 PRINT. AT 3, S, PAPER 1," 
“SAT 3,865, 

3083 FOR ué TO Ka 

3910 PRINT AT 1,1; PAPER 1; 

920 NEXT I 

230 RETURN 
12069 INK 7: PLOT 8,50: DRAU asa, 
v: INK B 
12001 PRINT S1; INK 7;“HIGH SCORE 
hã, BY “;hh 
19942 FLASH 1: PRINT AT 12,1, PAP 
ER (6) "ECREEECEEEEEEEFREEECECEEEE 
1093 PRINT AT 13,1; PAPER 6; INK 

+ 
L0DA PRINT AT 14,1; PAPER 6; INK 

E AT 14,835" 

L00S PRINT AT 15,1; PAPER d; INK 

Bo” “SAT 19,857" 

1207 PRINT AT 168,4; PAPER Bd; INK 

po “MT 16,83; o 
1208 PRINT. AT 17,4; PAPER 6, INK 

0," 17,283; E 
1299 PRINT AT 18,4; PAPER 6; INK 

Q, “taT 18,83; 

1919 PRINT AT 19,4; PAPER 6; INK 

S, * “AT 19,83; ” 
igii PRINT. AT 20,4; PAPER Q, INK 

5, T 29,83; 

1912 PRINT: RT a2i,dá, FLASH 2; PRP 

ER ?;, INK OQ, QUER O AHHHHHHHH 
HHHHHHHHA” 

1019 FLASH q 

Loro LET t=3: FOR :1=16 TO 18 

1250 PRINT AT Lot; INK 4; PAPER 

CE CSI LasDa BT E 1 LET tat-dl: 

NEXT à 

1949 PRINT ap 16, do; PAPER 4; INK 

Pa "BT 5,29;] 5 AT 17, E “E 
ST Za. d. 

12590 PRINT AT 3,45. INK 7; PAPER 
2" LinNT Bad; wu “At sd E am 
T 2,30, J' 


1100 PLOT 133,10 
1122 DRAU Q, 


49: DRAW 45,0: DRAW 


Q,-49: DRAU -45,2: PLOT 134,34: 
CORA 44,8: DRAW 9,1: DRA “44, Q 
1109 PLOT 76,10 

1110 DRAW Q, 43: Aa 56,0: DCRAU 
d,-49: DRAU -SE, "SLOT 31,55: O 
RAW 45,40 

1111 PLOT 73,8 

j1ji2 DRAU QD, 54: ORAU 109,0: DRAU 


GROUND ATTACK - continuação | 


! 
Ui 


o 
PLOT 
d, INK 


R 

GHT 2ZinT 
T 20,a," 
pr 
2 
pr 


Ars 


PUXCS AT 


: DRAW 32,92: PLO 
WU «32,0: LET deza 


1200 FOR i=1S5 TO 19 
| i, 120; OVER A; 
EXT R 


PARPE 
1: QUER U 


D: DRAW 0,171: DRA 
-171 


NO- 
To 
& 


Dr - 
El 
4 


DRA 


De- 


2: DRAW 2, LO : 
-167 


f.- 
S- 


DRA 


Oto QE CRUZ 
mn 


PRESS 
TLUCGDNE DEI 


“Br. 
1GLCOD 
= Rio GE 


DRAW Q, 
ORA 


H- 
n 
E 
U 
ZM 
c 
x 
z 


PLOT 107,94: 
- DRAU õ, j 
1512 SLOT 107, 119: DRAU B,S: 
Q =ETURN 

LF tcoz=25 OR tco=25 AND c>3 
THEN LET Lfalf+1: BEEP .09,L 


IF TCO<>)0D AND coztco>.9 THE 
t CO=INT (tcozêe) 

NEXT To TO 50: BEEP .B02,1 

N 

Lf=z0 THEN GO TO 5000 


SUB 3200 
INT AT 11,1; PAPER 1;º 


(SE 64 
EA 
«AOL 
TG 
Dc 

bl 


ma a eme 


TO b STÊP c 


(RND+5) 
T 94,1; PAPER 2,0 
: LET gui: LET P 


mombõo 
AHACIO 


On 


PAPER 1, INK 


“ 


XX H 


N 
K 2, FLASH 
O | STEP »- 


:GOCHENPUGELHEE 


so 
TU OTVOZ-ETVAHH TUM Ty 


“GIST APRNEQNUNERE 


23606, 
NT AT 1ô, à 9; “GROUND ATTAC 


ER 5: BORDER 1: BORDER 
4: BORDER &: BORDER LÊ 


E SGS4-- GOGUGESSSS 


S66U0--& 
GOC tg 
2O 
"20 VTONULZLMDA TÚ 
oo DIrOCMDDOO DO VODOM- 


PEFEE DEZEPE PULOLLIWX LILI 
x 


a + 


oderosa” 
E daneta. ec RUSA 
3 Add tnidden ou? 


vv 3 668 


PEDIA dy id- 
D&G GO PO6- P=-vOSs SU 
Dre. ty dy DO 
bvmDTI DM 
<a TO OG 
-a tw 


OPA Opa 


7 ar 16. ti tectas: 
'6 sz Poco” 
= ESQUERDA" AT 20,5;' 


“Prima Uma 


Ri 
"B 


tecla Pp 


tw DIJZ E DITADOR CH 


PE rM 
+ 
l 
Elia 
ado 


5 PRINT AT 1,14; INK 2; 
(Continua na nág. 15) 


Qi. 
UI 


5 DES ir a nim ii mm o DL O Z 80 


17 E RE NES O 
4 EM LINHA - jogo para o Spectrum 

O jogo desenha-se num quadro de 7 por 6 e o seu objectivo e o de 

colocar quatro das peças em linha, vertical, horizontal ou na 

diagonal. 

Tu jogas colocando uma das peças em qualquer das sete colunas, e ela 

ira Cair para a posição livre, mais baixa. 
Q jJ090 & feito num quadro de RE NEE E . 
7 por 6 & O seu objectivo DR CO ED dh 7 O 
e colocar quatro das suas it S-Dificii 2º. PaÚSE 1 pRuSe 
pecas em linha,verticalmente, os ME leo o q E. dE 
horizontalmente,ou a ce tr PAREM E,RE 28.0 
diagonalmente. jusiquer auira teria prescoih 


doce jsoga Llargando uma das 


Dormiu o- - = . - - i- - - E : 

i A Rene Sad Co TEME ê 3 E = i > Es: ==. TEtiãa 
colunas,que cai para à Posicao gli dica neo 
Livre mais baixa. Ear E » 

Ti DHiA DTT.cos,cia,csáa,isa,Iis 
E 580, 180,885,69,15,7,2,3,4:1,32 
S,i28,192,197,22á,24ia,252,255,1 
2 FOR n=iisk “a ty UR d+: 
RIR E PURE fo,8 MEXE ff 
o o da mevge “era Goma RA 
Ze. SESI ai TS + SS 
Liar DE grafica DraE PEraL 
4040466 Estou a pensar 
e e - isca m=º Ti E. DD m=D5 TTõÕ o: 
PRINT ET nsD.ms2; PRRER 7; INK 
I/CRBCLAT nsc+ti mo CCD" NEXT & 
NCATOo nm 
E PRINT AT dd,5; INK 1/CA 
ER Ed 
YU-para targar 
Qualquer outra tecla p/escolher i inigoe RO-FA 
Delcrn-har o qua=dro 
Ena É JU SSTE 
a E Nai lo LETtFREO HS... É af ntrzdas 
dd — th FER ça EUR Res À ES A Fá E Fsdro o Fi a Se EE: - artiras 
Lo o PRIME. TER o ra: =. Jg = a é R icicá A ai ida 
LINHO”: PRINT àT 2.7. tu So 
MICO Io isto E RES SE 
343 4: — z a E E 47% US es s a e << e > ... = Ps SS ss 
+ a A Si | DE SM Libre pd É sil 
” — TEi : HE: 273. 75 dao ==) += — = à o ..M q é — -— = A s 
ad DO Saes ao a — LIA d44,5756,24B, Rá .152, 188 
qatadro de ? BRT Seta ns = | Da PFN mn=itiãs = Ty ttato fa? 
Est tti ço” À a oa Ro gado nn dm Do a O E Rd 
OC E DO o anT CPtotai GUBLIC SE |) REBDO é. PORE non: NEXT n 
> 0 UTS Pelo cy tinha ,çveriid 
aimerte, Mi: emMrevrmt=ingemiae -. ES 
em add E e a se Sp DS fado RA AS 8 el 
CC" disgonaimenie, Linhas Bo-se 
— ch am: vote ipbãs igfSanas | CrItar SE Bra rne ms ge ta 
PLkã das“fi“suas petas numa das g | HE. ale SD aa 
etel “colunas, qQue cai parz E PS| 
| >1 Ta tel ivre mais bhaixgo,” 
| 9 PRINT Hi; INK S;CPrima uma | IBB>L ET x=E 
| tetia pará comecar.": PAUSE 1: P|[ 119 LET move=-l 
 RUSE a | iBB DIM ai:S,8) 
| o Cal as pe 
| AdvO LET ZEs=ê 
= | da | 
Linhas 5-9 | 
o A É la | 
POFReceL AnSirucces | Linhas 1280-1398 
k ist g | Tnicia ."—=rarm das + rsguesé 
SEE EM E T-A-Rr E e E, À a = —i+> 


CLUBE Ze 


4 EM LINHA - continuação 


- 
1 
Us. 

| V,2, EP” 
o 

10,18," 


152 FOR n=z2 TO 58: IF atín,7) THE 
N NEXT Ti 

1959 IF n=z9 THEN GO TO 660 

evo LET u=ê 


20S REM Linhas 15090-200 colocar. 
8 Seta No cimo do ecran e ver se 
O quadro esta cheio. 


a: LET moveznove+i 
«O PRINT AT 6,19, "JOGADA “;mov 


E 

eso LET ag=INKEYS: IF ag="" THE 
N GOÕ =5 230 

ed) IF as='0" THEN GO SUB 580: 
LEI sb: LEY nexz92: LET peB: LET 
y=1: GU SUB 300: GO TO 634 

250 PRANTO AT B,x:' E LET x=x+ 


X=z 

2090 PRINT AT B,x; CEF": PAUSE DB: 
PHUSE SU 

a'Q GO TU 230 


275 REM LINHAS 2190-270 executar 
O controio da jogada do utiliza 


Q PRINT ART 19,158;"Estou a pen 
“e LET mOve=movesL: PRINT AT 
“MOVE C;move: LET h==-l1e56 

2 TO ?: LET de tado LET s=0: 


— 
y IF ain+i,7) THEN GO TO SIY 


É Eu REM Linhas 280-290. Executa 
CoOnNnirocio da Jgsogada do comput 
ado s subi r Õ contador. 


309) FOR q=2 TO ?: IF atn+21,9) T 
HEN NEXT q 

312 IF U THEN LET q=q-1 

Seu FOR u=l TO S: IF ain+l,9+4) 
=h THEN NEXT y 

Jo LET E=4-): FOR yusi TO 8: IF 
aln+L,C2-4i=zm THEN NEXT q 


540 LET Z=24+y: LET sS=8+5t2z 

So0 FOUR g=1 TO 3: IF aíin+i+ey,a) 
=h THEN NEXT qu 

3S60 LET zZz=y-l: FOR yzi TO S: IF 
aint+i-u,q) zm THEN NEXT q 

SO LE: Z=2+44 LET 53=5+5*?2Z 

sto FOR U=lL TOS: IF atin+l+uy,a+ 
4)=m THEN NEXT qy 

390 LET z=y-1: FOR yzi TO 2 
atin+l-u,3-4y) =m THEN NEXT qy 

SVO LEI Zz=z+y: LET s=s=Stz 

41) FOR u=1i TO S: IF ain+l-y,q+ 
U)=m THEN NEXT q 

420 LET Zz=y-1: FOR yz=zi TO 3: IF 
ain+l+4U,]q-4i =m THEN NEXT y 

439 LET Zz=7+U: LET s=s+51Z+RND 


— 
SS) IF u THEN RETURN 
450 IF hn THEN RETURN 
460 IF m=2 AND 5s>625 THEN LET Z 
Rai: LEI hã: LET hitzxfh: GU TO SB 


4€5 IF m=2 THEN NEXT m 

Aly LEI sl=s: LET 520 

400 IF lev=2 AND q<?7? THEN LET s 
o LET q=qa+i: LET hhai: GO SUB 


462 LET sl=si-s+a.S: IF Ss >625 BN 
D hs>1e65 THEN G0 TOC Sia 

gr IF sil>hs THEN LET hs=si: Li 
E =" 

Sly) NEXT n 

915 REM Lihas 3990-5140, Calcula 
de me thnor Jogada para o computad 

520 PRINT AT B,x;' LET pape 
T=Ê: IE hS=-1E6 HEN cô TO GE5Q 


SãO PRINT AT B,x; "EF" 


60 IF zz THEN PRINT AT 0,2: 
ENCIC,SAT. 2,18; “Prima uma tec 
SURDER O: PAUSE SO: RUN 


e 
'c 


>"*5 REM Linhas 5290-570. UVerific 
à Se O J090 esta elipatado ou se 
tjyi ganho. 


Pt FP a4tXx/2)+41,7) THEN GO TO 
E 


“SS FDR A=2 TO ?: IF alix/2)41, 


SUDO FOR v=1 TO 16-2+n: PRINT AT 
V,X; INK 4d; ÚVER À; Er paper 
Da AE WPSRS PET .y- KR: PR 
PER (S+3 + voa); E BEER' alL,vV+ 
dO: NEXT V 

SlgQ LET aix/2+1,n)=paper 

bey RETURN 


El 

550 IF s>625 THEN PRINT AT 8,20 
» VOCÊ VenNceu';AT 2,48; “Prima um 
a tecla BORDER QB: PAUSE SO: PA 
USE OQ UN 

Sto LET u=ô 

5º) GO TU 230 

555 REM Linhas 5630-650. A mensa 
Jem que aparece quando q dogador 

Vence a 
560 PRINT AT B,21;"DRANV";AT 1,1 
S; Prima uma tecia": PAUSE So: E 
MUST à: RUN 

5ES REM Linha 660. A mensagem q 
UZ sParace quando o 40390 termina 
efizatado. 


Tata DDT TT TOTETTDTTTTCTTTCTTTTTTTTDTMT MT 


ur me mam 


"Too: 


Tam ch ramo To 


ae ma 


ecra 


Cro 


Pero 


CLUBE Zso 


ar -LhSshL programa de oraficos comerciais 2 


Este programa publicado em Setembro, deixou ficar o codigo maquina na 
nossa mesa de trabalho O nossc dever e pedir desculpa e publicar a 
listagem do codigo 

A listagem conter a: cvosições de memoria e o codigo decimal 
respectivo. 

Para o Introduzir us 


equinte programa auxiliar : 
l ERBHA TO GRSA 
PRINT à & INPUI & 


4 3 84 
128 POKE 1, & 
+35 


quando todo o codigo tiver dado entrada. deve gravar na sequencia do 
programa SP-ERSEL ....a: SAVE ''EASEL MC''CODE caRRE, SGA 


2000=17 60021-358 60002=53 SUlse=125 60193-922 50194-120 
0003=52  E0004=E7 60005-353 cúlgS=132 60195=71 50197=121 
0006=72 60007-231  5000S=1 SUlsB=133 .60199=75  60200=205 a 
V009=2 Gaola-2é 62e911=19 Cildl=5e2 60202=255  50203=217 
2012=213  590015=197 do0nld=229 Ticda-12] 60205=16 69296-225 
9015=58 6BODIA-ziI75 aBBil7=5 C)ldY7=209 60205=217 62209-295 
2018=78 60019-245 50020-120 B0219=217 69211=201 60212=23? 
2021=203  EdoSzcl27 Gadv2s=s0 D0cC15=67 G0Jl4=125 650215=52 
V024=9 60025=237  ED025=65 &OSlL6=205  690217=170 60215=34 
0027=71 G0BES=-5 50025=60 odcla=/1 0 50220=4  S0221=62 
2930=8  6005i=-2€  60052=-24 odclTIl o CUS2s=15 60224-165 
2033=7 60034=-21 502035=157 SU22S=255  60226=71 s0227=229 
V036=32  50057=5 60035=4 DDESB=245 60229-422 50230-231 
W939=24  609040=51 EQ0d1=235 CU)=51=254  60232=55 50235-230 
0042=241 60043-245 60044=119 cOcddsadd  E0=235=167 60236=52 
2045=229 GUoLb=-lZi bODá7=230 cUesc=l o 60c56=124  60239=61 
20456=24 60049-205 60050=47 SUc40=50  6l=41-250 60242=234 
0051=203  50052=47  59053=203 DUctd=153 COZSA-SE  B0245=5 
2054=47  BODSS=198 50056=55 cbedb=2cl  Edaá7=225 60248-125 
2257=:103 60055-212 60059=17 CO-io=176 60250=ll9 60251=2901 
2050=70  50961=254 50052-123 EOZSE=2il 50253-225  60254=201 
0053=129 60054-938 60065=265 Sdcad=55 .50=255=57  00257=80 
V956=209 59057-112 60065-225 C0=50=0 CúZSa=s 60260=197 
V059=58 60070-127  60071=32 cbcblsdos 69252=6 02535 
2272=41 50073: GON74=124 BU-D4=125 60255-385  E9266=23? 
2075=Di 60075-107 50077=47 2026/2103 E0258=15 50259=-15 
2276=230  60075=7 50050=32 do rb=1S  Gulciszls GUOZrazds 
2981-190  BOVOSZ=-125  50055=Eld En=73=119 E0274=36  59275-15 
2084=32 EoASS=iil 50055=56 sderos2iS COl77-225 60278-195 
20587=d  GOQ8E=-l=á COGSS=155 SUcrdsto  602S0=45 60251=15 
0990=-8  GoOgslL-l03 cogse=2di CUOSS2=2305  €0253=201 502540 ás 
9055=15  S0054=-20. 60095-225 vUrSS=or GUSS5=1L0 C0257=10 E 
2096=35  509A7=-13E GAaMos=203 DmUlSC=slLl o GUZSs=ia EU2I0=18 
9099=64  Golvgozio sBiol=s cdcsl=0 Gorsc-0 602553=16 
dlo2=13 60105=62 60104=655 TO-43=155  E9295=155 60296-165 
2105=24  60105=32 BOlIB7=BE 50257-155 60295-165 59299=0 
01098=252 GBUlds=i= 58110=205 =SSUbso  BOS0L=-55  60302=54 
0111=16 6G0li2=15: E9115=201 oUsdd=os 60304-534  E030S=34 
Qlld=S EOliS=izsi EBEGBIlLA=GO DJ4845=95  50307=0  503908=0 
0117=103 60118=2350 60119=7 50509=176  EOSlo=io 60311=176 
2120=32 GOlZl-22t esOlze=-ie2s cocdicsda 60S1LS=20 60314=175 
9125=198  58124=32  560125=11i CUSLO=sd o GOSLO=0 E9317=41 
2126=56  60127=226b ecol2sS=l24 D0SL0=55 GESlszia EOD320=43 
Vi29=214  690130=5 EGl1S1=185 CQvcl=do G0F2szi2 6032520 
2132:24  6G0155=Cie 560134=230 DUscsdiz0 E0OJ2S-45 60526-168 
2135:0 6G0136:0 ES157=9217 bis "=150 60528=175  59329=158 . 
à2135=229  69159=217 BOL4S0=5S DUSSO=1053  60331=0 E9932=0 
V141=2531 Goliz=254 A06145=-=111 CcUSid=1a 603354=z=42 60935=49 
0144=203 60145=5= 5S0146=165 DUSSE=5S 50357-422 609353S=d2 
0147=34  60145=23. 50149=254 E0552=6  605410=0 60541=45 
2150=1 6GOiSizis aAOlLs2z=o DOIS 2=155 60345-165 60344=45 
2153=:17 G0lSa=i 66155-255 BUS41S=40 60345=40 50347=0 
2156=121 G0157=15: 60155=45 EUTLESO BOZIS=4A 60350=155 
2159:6 60150-105 EQ1651z213 ; CUSS1=155 60552=1ã4 GUSSI=zldÁ 
2152=175  60155=95 50154=24 oUvSé=lid  60355=0 60556=0 
0155=5 60155-104  60157=65 Súisr=05 6035510 E0359=10 
91668=213  60159=2=> 6Olro=0 SOcoBb=I0  GUSbl=42 E0362=17 
0171=96 S0l7=2=120 60175=31 =0SoS=0 CUSGL=0 60565=144 
0174=133 GOL7T5=5E SOI7E=3 50356-165  560357=165 50366-168 
9177=188 60175=5E agi79=7 D0503=105  60370=40 505371=0 
918090=148  BoOilszi=7= 601582:21?7 bÚúSccz0 60575-160 60374=160 
9183=193 60154-157 60185=E 50575-150 60376-150 60377=160 
0186=4 G0l87=75 60185=215 SOS cd=48 GUST3=0 60380=0 
V189:217  6G90192=195 60191=dº2 2QLTl=1S5 00352-212 6C0983=d2 
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| ATENÇÃO - MI C 


Quando as microcassetes estão vir- 
gens necessitam de ser formatadas, 
ou seja, inicializadas pelo grava- 
dor. Devido à espessura da fita, a 
contecm coisas estranhas durante 
os primeiros tempos de uso, pelo 
que devem formatar com o seguinte 


enunciado: 
FOR i=l TO 10: FORMAT"mº;1;“md”:;CAT 
A:NEXT à 


Verão que os problemas desaparecem! 


S EM MOÇAMBIQUE 


=DHIza 55] 


SUCI 
=HEs 


“Mão amiga emprestou-me alguns exemrpla: 


res da vossa publicação, que gostei, 
pela sua modéstia e pela humildade dos 
apresentadores dos programas. Não pre- 
tendem ser génios, nem pertencer à no- 
va classe dos 'modernos alquimistas', 
Junto encontrarão a minha candidatura 
de sócio, bem como a de um amigo meu. 
(000) Só aqui em Maputo, há dezenas de 
proprietários de ZXs e já uns 2 ou 3 


QLs. Ao contrário do que acontece em 


Portugal, aqui os donos destes computa 


dores utilizam-nos 90% para programar 


e 10% coma 'video-game', Todos estamos 


a trabalhar, à noite, para as respecti 


i vas estruturas onde exercemos activida 


de.” ÁLVARO MARQUES/ Maputo 
O 


1) O Spectrum não possui botão de RESET 
| permite abortar o conteúdo da memória) e, regra 
geral, você usa o processo de desligar a alimentação. 
No entanto, se o seu programa permite o BREAK 
(parar a execução do programa) é preferível usar: 

RANDOMIZE USR O 


2) Se quer o Spectrum a escrever em maius- 
culas num programa faça: 


POKE 23658,8 


e para voltar minúsculas: 
POKE 23658,0 


3) Para acelerar o SCROLL: 


RANDOMIZE USR 3280 


4) Se quer saber se o seu Spectrum é 16 ou 


48K faça; 
PRINT PEEK 23733 


se for 16K aparecerá 127; se for 48K aparecerá 255 


5) Pode desactivar a tecla BREAK com: 
POKE 23613, PEEK23730-5 


e voltar activar com: 
POKE 23613,PEEK23730-3 


6) Se fizer: 
POKE 23692,255 


só passado 254 linhas é que o Spectrum lhe vat per- 
guntar se quer SCROLL (quando estiver a fazer 
LIS TJ 


7) O comprimento do BEEP pode ser modifi- 
cado com: 


POKE 23609,n 


(em que n comanda o comprimento). 


8) Para saber que memória está a ser usada 


pelo seu programa faça 


PRINT PEEK 23627-+256% 
PEEK 23628-23755 


9) O seu Spectrum pode trabalhar como uma 
máquina de escrever se fizer: 
OPENS2, “P” 
tudo que escrever no écan será passado para a im” 
pressora. Para terminar faça: 


CLOSE+2 


10 
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PATINHAS - programa para o Spectrum 


autor : Antonio Bastos * Sever do Vouga 


DEVIDO A GRANDE EXTENSÃO DESTE PROGRAMA, SERA PUBLICADO EM DUAS 
PARTES, UMA EM OUTUBRO E OUTRA EM NOVEMBRO 
sÚ TO 170 
SCORE ils ea l8o SEEP .D5,RND+10 
900 EK ' 185 IF INKEY$="1" THEN GO SUB 7 
é À 754: G0 TO Booo 
BONUS 190 IF INKEYg="2" THEN GO SUB 7 
785: G0 TU 5000 
195 IF INKEY&="3" THEN GO SUB 7 
E50: GO TU 6000 
199 G0 TO 170 
200 POKE 61905,15: PRINT INK q; ao 
'ANDOMIZE USR 61011: FOKE 5100 


.zZz 


OMIZ 


T UZU-s: PRÍ 
USR 61011 
Sm o lados TH 


m 


USR BI 


Din 
fts Ti- 
DEM MONET UZEDGEUC EN E Cú Cx 


x , 
O FASO FOGOOMMO CDE - 
pa 
m 
ud 
E 


Pu ps PO fi + 


PURE 61905, 


R 11: PORE 61 
Se POKE 6G1002L,v: 
RA UMIZE USR 51 
E ce, = GO TO 1590 
- 5 POKE 61905, 
Je: OK SIVOL,YV 
O | PAPER INK O: BORDER O: € RANDOMIZE USR 6 
LEBR 59995: LOAD CELSCREENS, SUR 319 Ro E E 
EENS : PRINT AT 6,0,: LOAD Cet b 353 POKE 51005, 
Ph nar pg qa PRINT AT 6,B;: LET U=U+3: PRI 
“pt progra MIZE USR 610 
> SAQUE “pt entrada” LINE 2 ES TE X cus T H 
3E9 POKE Gioo 
SEM UI e US . 
0 3REM [= ada a 5 1 
05 2 O ES OD O E O e E E Mann] So: OK GB1IVOL,YV 
EnTEnESSEs PAT INHAS DD2D2]2]2=2=== RANDOMIZE USR 61 
SEE naZnsnasnanpanrnseasanesznpsss 3cú RETURN 
o vo LEI Sses: L 
0.3 REM ERR a RD a REM RAE 
TETTIZIDIIITDISISIZaDzIcDzccczzzzzazss oi: OK 5 1215, 
=== Programa elaborado por === [= dBi ' , 
EE A. Bast S === Soo FOR EslO TO 
TEDDTIIITZICIDazazzzazaczcazazãzes ' EEEP «BE, ft: -BE 
f 
l) CLEAR 59999: LOAD “pt bytes 359 RETUR 
CODE 50000: LOAD ““CODE 61000: 200 CO SUB d: 6 
LORD q CODE 61210 J) +30+56N (U-v) + 
2) GO TO 7550: REM RE==zzsnszz=s 41) GO SUB d: G 
apagar ld e 20 depois de == UU) +4DBO: RETURN 
ter sido gravado em CODE == d2:y RETURN 
E desde 7050 ate 77590 == 459) PRINT INK DdD;: 
TEDISIZIDIscnsIcscaszasczazazsass e EM A = mi 
1) GO SUB 1190 MIZE USR 61011 
— 380 PRINT INK 9:;AT ",8;, "Deseja 452 IF DB& (u-y 
nas MT 8,15; "8271 THEN GO TO 1500 
vo BEEP 93,40 154 RETUEN 
bo IF IN REV S2TS» OR INKEvã= pi jeo RETURN 
THEN GO SUE 9512: GO TO 178 4“) PRINT INK q 
a BEEP «021,50 - FOKE 61900,U 
Q IF INKEYg6=z]"N"º OR INKEY g="nº MIZE USR 610 
THEN aj PRINT INK 9;AT 8,3;" dez IF ARES (uy-v) 
Escolha o quadro onde :AT D,3;"“d THEN GO TO 15006 
dd JO0AT: 1,;82,0U 3”: GO TO 47 474 RETURN 
00 PRINT INK 4& 
So GO TO os RE B1210,k: RAND 
1509 CLS PRINT INK 9;AT 8S,3;"E Tao LF k = ese TH 
Scolha O quadro onde“;AT 9,3; “de rem IF INT ix/1 
ses3 JO09ar: 1,2,0uU 3" D L=zy THEN LET d= 
165 GO SUB 11098 7539 RETURN 
1?0 BORDER 1::::::: BORDER 2: 75) PRINT INK So: 
ZE BORDER 3::::::: Spsságg 4 : KE Bl1218,k: RAND 
12º BORDER 5: ia: 18 5 "EO IF k=8 THEN 
17S IF INKEY &= THEN BORDER Q: O dr INT AXAZ3 
D L=y THEN LET d 


LET v=v-SE: 


POKRE 61002,v: 
311: RETURN 

19: POKE 61000,U 
NT INK 9;: RANDO 


EN GU TO 1500 


LS: RANDOMIZE US 
995,19: LET va=v+ 
PRINT INK U;: 

211: RETURN 


15: RANDOMIZE US 
Vos ,2s: le T VUZVv- 
: PRINT INK Q;: 
V11: RETURN 


es: PUOKE 61000,U 
NT INK DO;: RANDO 


EN GO TO 1500 


15: RANDOMIZE US 

995,23: LET v=v+ 

PRINT INK QB;: 

211: RETURN — 


ET s=q4: LET mal: 
RANDOMIZE USR 61 
2?: RANDOMIZE US 


19: BEEP .BDi,40 
EP .0S3,t+3: NEXT 


O SUB 50xX56N (x- 
280: RETURN 
U SUB 1IV+FSGN (x- 


POKE 610095,19 
LET U=U-3: RANDO 


| <15 AND U-x<10 


d;: POKE 61095,293 


LET Uzu+3: RAINDO 


1: LET k=k+2: PO 
ÚMIZE USR 612212 
EN LET d=750 
S) =INT t(k/15) AN 
SS"): GO TO 388 
LET k=zk-2: PO 
UMIZE USR 612212 
LET d=7008 
5) =INT (kv/16) RN 
=3578:; GO TO 380 


ECCLUBE Zso 522 


E 
PATINHAS - continuação 


780 RETURN 

300 PRINT INK 4:: LET k=k+2: PO 
RE 61219,k: RANDÔMIZE USAR 61221 

810 IF k= 104 THEN LET b=850D: LE 
7 e=850 

seu IF INT ix 216) =INT (k216) AN 
D L=zyu THEN GO TO 3580 

Ss390 RETUEN 

SE) rol INK 4:: LET k=k-2: PO 
KRE S1210,t: RANDOMIZE USR 51221 

RM ia THEN LET b=800: LET 
E = 

3º IF INT ix/216) =INT (k/16) AN 
O L=y THEN GO TO 380 

369 RETURN 

300 PRINT INK d;: POKE 61290 ,U: 

RANDOMIZE USR 61011: LET UzU4j 

v2O IF uc=110 THEN LET jasS: PÓK 
E Gl12QAS,23: RETURN 

330 IF vU>=150 THEN LET j=-3: PO 
RE 61995,19 

335 IF ARES (Uu-v) <15 AND ABS d(x- 
VU) <Iid THEN GO TO 1500 


ado) RETURN 

399 REM == Mudanca de quadro us 
1209 LET p=p+S50+(iq-aa) 
1210 IF c=150 THEN GO TO 1200 
LS IF h=1l THEN GO SUB 77990: GO 
TO 2400 
is) IF h=z2 THEN GO SUB 7855. GO 
TO Cara 
1950 IF h=3 THEN LET q=qqaq-2028: 
SO SUB 7755. GO SUB 11900: GO TO 
EBD 

13960 STOP 
1998 REM =es== Musica ==]2== 
119 FOR 9q=2 TO O 
1185 POR F=z12 TO 28: | BEEP «.1,25- 
sdsOdF: NEXT É 
11190 FOR t=13 TO 10 STEP -1: BEE 
— «L,25-f EFER pe RP rá REIS “11,20 
é BEEP «do +E: NEXT 
11146 NEXT O: BEEP «3, 10: BEEP .,2 
13: RETUÉN 
1iY9 REM ===s<22 Fim teEseses 


ro Mi)  FRINT INK Li, É! gm 

1218 PRINT RT 198, Ea INK 92: "NOVO 
JUGO"; HT 20, Cal 

Leco BEEP EL E = 

1250 IF INKkKEvg$g="S'" OR INkKEvg="s" 
THEN GO TO 198 

ra BEEP .2,7 
25) LF INKEY 6=" 
“TREN PRINT USR à 


OR INKEvg="n" 


1510 FOR Ff=0 TO 7: BEEP .06,19: 

PRINT INK F;: RANDOMIZE USR 69001 

l: BEEP .04,22: NEXT 

1515 FOR t=i TO 40: OUT 254á,fF: O 
-: NEXT f 


1 TO 66: OUT 254,0: 


3: OUT 254,252: NEXT Ff 
1517 FOR =] TO 100: OUT 254,1: 


Ra ES Fê 
RE 609295,15:. RANDOMIZE USR 529011 
1545 IF c=160 THEN GO TO 120900 
1552 POKE 69025,15: POKE 6200900,x 


À ci GOvVOL,y: RANDOMIZE USR 50 


11 


1564 IF h=z1 OR h=3 THEN POKE 5190 
V9,Uu: POKE 61005,15: RANDOMIZE U 
ok 61911: LET Us 150: LET v=1129: 
FOKRE 61090,U: POKE GluoDdDi,v: POKE 
51905,19: RANDOMIZE USR GloOll 
15*ºU INK Ss: LET x=64: LET gy=119: 
PÓRE S909090,x: POKE G60091L,4: POK 
E 6900925,5: RANDOMIZE USRKR 60011 
1545 ai BVVS 


[0a ===s= IN 2 ==22== 
[2eiy RETURN 

=320 RETURN 

ess) CLS : 60 TO 1210 

[3580 LET aaz=INT i(65SS6+PEEKR 236 
74+256 +PEEK 23673+PEEKR 253672) 7/50 
23581 LET ab=INT ((65536+PEEK 236 
“4 +2SS +PEEK 23673+PEER 23672) 250 
j 

=:353 IF aac<cab THEN LET aazab 
23585 IF aab»= q THEN PRINT INK 3;A 

T d,7;"D2000D" GU TO 1500 

383 PRINT INK 9:07 4,7)" a 
HT à2,7;9-aa: RETURN 

=5599 RETU 

=400 RETURN 

=45yv RETURN 

iva RETURN 

esS0 RETURN 

inda PRUSE O: BEEP .01,30: RETUR 
=50) RETURN 

2510 PRINT INK s:;: POKE GOODE, 
LET x=x-3: POKE 6000S,1: RANDOM 
IZE USR 60011: RETURN 

=52W RETURN 

25090 POKE 60000,x: LET x=x+3: POD 
RE 50005,5: PRINT INK s;: RANDOM 
IZE USR 60011: RETURN 

ESiú RETURN 

esSeuú LET (=r+1 

=55S= BEEP .00S,PEEK r 

=55ài IF r=60857 THEN LET r=60525 
ESSss RETURN 

“323 GU TO 1500 

LB) LET x=kx+3 

idER GO SUB b 

970 GO TO Boa 

2159) LET xz=xe3 

s104 SO SUB b 

llvô GO TO Boda 

32050 PRINT INK s;: POKE 6Qa9OSsS, 15 
"| RANDOMIZE USR 60B11l: POKE 6908 
5,1: LET x=240: POKRE 60000,x: RA 
NDOUMIZE USR 6oaii 

S2c) GO SUB b 

t27y GO TO 62000 

2300 GU SUB b: BEEP .9005,15+C00s 
x: GU TO 6000 


ada IF IN 2<>+247 THEN GO TO 690 
£355 PRINT .INK S;: LET w=uy: PORE 


50005, 15: RANDOMIZE USR Edoli: 
PORE Rr SP SoDos Es: LET 


1365 “PRTNT INK Sorel E aan, 2 


2.565 IF abc À e U-wuz32) THEN B 

a POKE EV090S,16: GO TO 
SYUDE 

4570 IF IN 2=2239 THEN LET y=u-2:, 

e 6O001,4: RANDOMIZE USF 500 

43:75 GO SUB e 

243589 GO TO 4360 

442040 FRINT INK s;: POKE 699005 ,15 
RANDOMIZE USR GOVIl. LET wu: 

PORE 60005 ,9: LET Xx=INT ix:8)]*45+ 


1: COKE 60000, x 
4412 PRINT INK 5;: LET y=y-2: PO 
KE 50091,4: RANDÔMIZE USR 60611 
4420 IF Wy-U=32 THEN GO TO 6200 
4438 GO SUB e | 


19] TE JZ?'/º[[[[[TTTTWWWWW———— CLUBE Zso 


PATINHAS - continuação 


sádo Gb TU Z410 a 2.985 FOR f=l TO 11: GO SUB b: GO 
s4S0 IF IN 2&<>:239 THEN GO TO 000 SUB E | 
a é 23962 PRINT INK s:: READ n,0: POR 
d45S PRINT INK s:: LET u=0: POKRE - cgooa,x-n: PORE 60001,4+0: RAN 
50905, 15: RANDOMIZE USR 600IlL: DOMIZE ÚSP Gaoli: NEXT F 
PORE S000S GS: POKE 6900905,24: LET 1590 PORE 6900095,5. LET x=x-n: GO 
x=INT ixr815455+1: POKRE GOVVDO,X: TO EODO 
RANDOMICE USAR BOVIL soSo IF m=1 THEN GO TO 1500 
a4bia PRINT INK S;: TE dN d=c09 1 sos2 LET sses: LET s=d: GO SUB 2 
HEN LET q=4-2: PURE COQUOL.U: LET asso: LET a (INT (4/28), 1+INT (x/8) 
u=u+l: RRNDOMIZE USK Bogli | O 
+465 IF tu=0 OR u=16! THEN BEEP  coss LET m=1: PRINT AT 22-INT (y 
“025,0: PURE GOVOGS. 16. GU TÚ GOD cs INTO Ux281;00 “: RANDONIZE US 
U ' E 60011 
adro IF IN 2=24á? THEN LET u=u+2: asp FOR f=190 TO 15: BEEP .2l1,10 
PÚRE 6BODOL,4: LET v=u-l: RANDON FEEEP .DE,F: BEEÊ .03,F+3: NEXT 
IZE USK 60011 
s47E GU SUE e. SOTO IF h=2 THEN LET q=e: LET e= 
4453 GU TO 4d ig: LET b=4208 
+500 LO TU 4400 á n =ovs G0 TO 6009 
4350 IF IN 2&:+239 AND IN 2<>2d? ESc0 IF mn=i THEN GO TO 1500 
THEN GO TU Booo 50553 LET mn=l: LET ss=s: LET s=d 
4552 PRINT INK s:: POKE 60005,15 casa FOR f=il0 TO 15: BEEP .vi,1iu 
- RANDOMIZE USAR 50011: POKE 5000 EEEP .02,F: BEEP .03,F+3: NEXT 
E 8: PORE bBUVO3 2d: LET w=y: LET E 
x=INT “B) +8+1: POKRE 60009,xX: =90s RETURN 
RANDON IZE. USR BUBII 5100 LET x=x-3: GO SUB b: GO TO 
4550 PRINT INK Si: IF IN 2=239 T eEgão 
HEN LET u=i-2: PURE 5B0001,9: RAN isa IF IN 2<:233 THEN GO TO 68o 
LOMIZE USF 9011 o 
456% IF IN d=2d? THEN LET q=u+2: 0 =4g5 PRINT INK s;: LET u=0: POKE 
BORE 50081, gs: RANDORIZE USR OU S0025, 15: RANDONIZE USR 6aoll: 
ima RES tu-yj=52 OR u-y=0] FERE S0005,5. LET x=INT (xzE) 25: 
Loro TI i = WU =lji =3I o A 2) n : ah x Ss 5 
THEN BEEP 005,15: POKE 60063,16 q “PF SU00B,X: RANDO 
GU TO 69000 =1E0 PRINT INK s:: IF IN 2=239 T 
435 GO SUB e. HEM LET u=4U-S: LET x=x+8: PORE 6 
asto bu TOU 4560 pe voos,15: RÂNDOMIZE USR 60011: PO 
4650 PRINT INK s:: PORE 00005,15 «E sõoos,E: POKE 60001,4U: POKE 6 
RANDOMIZE USAR 60011: POKE 6000 sagõ,x: LET w=u+1l: RANDOMIZE USR 
Sd LEI X=7?: POKE GORDO, X: RAND s0011 
OMIZE USF 60911 = 165 IF (u=0 OR w=d) THEN GU TO 
ibbaú GO SUB e EaDaA 
a67à GO TO 5900 o S170 IF IN 2=247 THEN LET usu+8: 
+:150 IF m=0 THEN GO TO S00O LET x=x-6: “SORE 500205, 15: RANDO 
a7S4 LET 5=8s: PRINT INK dj: LET nIZE USR 60011: POKE 60905,1: PO 
3=3+1: PURE GlZ2lO.PEEK a. LET à «E soado,x: POKE EOdQL,4U: LET w= 
=3+1: POKE 61211,PÊEKh a: RANDOMI w-lL: RANDOMIZE USE 6Go0oii 
LE USR Bical = 175 GD SUB é 
Ives LET E=[+500: PRINT INK 9;AT S1E0 GO TO S160 
1. 04P -160 IF IN 2=251 THEN LET x=84+IN 
arba POR f=20 TO 25: BECP .05,10 Tu :51+6: POKE 60005,15. RANDOM 
| BEER .0l.t: BEEP «05,14. NEXT [ZE USER 60Bli: POKE 509005,1: FOK 
. . E E90DD,X: RANDOMIZE USR 699011 
a770 IF a=60805 AND h=1 THEN LET co To sddê 
D=2+50+(iq-33): GO SUB 7790: GO S2ld) IF IN 2:>247 THEN GO TO 600 
SUE 1100: GU TO 5009: REM = Pass & € 
a9emM au dé quadro = D2ES PRINT INK s:: LET w=0: POKE 
iria IF a=S0509 AND h=2 THEN LET  so005,15: RANDOMIZE USR Gooii: 
C=p+50+iq-aai: GO SUB 7555. GO PORE CUODOS,1: LET x=INT (x/53)4%8: 
SUB lido. Gu TO GOUB. REM = Pass =ORE EO0900,x: RANDOMIZE USE Ed 
agem 30 3: quadro = 14 
acid IF a=BÓSes THEN LET P=P+S0% Seo PRINT INK s;: IF IN 2=247 T 
-q-sa:.: LET q=aqa-200: GO SUB PC n=n LET Uu=4+5: LET x=x-B: POKE & 
25: GU SUE 1100. GU TO 5000: REM uvogs, 15: RÂNDOMIZE USR 60011: PO 
EEnEss=cesansssss=a= nova Pass «ez sõvos,i: PUKE 60000,x: POKE 6 
agem ao 1º quadro = cocl,4u: LET wu=zw+l: RANDOMIZE USR 
io) CU SUE 25589 swali 
+70 PURE Glelk,t: LET msb: LET CDE IF (w=D OR w=4) THEN GO TO 
a=700 Sano 
“700 IF h=& THEN LET ez9: LET b= sto IF IN 2=239 THEN LET u=u-B: 
a eg hor JET K=n4+5S: PURE 6000905,15: RANDO 
ateo GU TU SODO ma . MIZE U5R GObil. POKE 60005,5. PO 
2300 IF IN c(<:245 THEN GO TÚ 608 FE SOBOL,U: POKE EDQDO,X: LET w= 
q w-1: RANDÚMIZE USKR 69011 
4852 PRINT INK 5;: RESTORE 9000. “ass fd açd E a 
DURE COVER, x: RANDOMIZE USR 600 <=asa co TO SS6Q 
radio COS, 29: RANDOMIZE USR «=sao IF IN 2<55247 THEN GO TO 600 
UV LL K E 
4555 FOR f=1l TO 11: GO SUB b: GO cscc PRINT INK 5:: LET wv=0: POKE 
SUE é es 50005, 15: RANDOMIZE USR 690011: 
25090 PRINT INK s:: READ n,o: POK COKE 50005,S:. LET x=IAT ix/8145+ 
E ED000,x+Nn: POKE GQdoOl,9y+o: RAN POKE BOOVA,x. RANDOMIZE USK 6 
COMIZE USE at NEXT | “o BoIiL 
me C0B0S di EF SeRED: DO COCO EOINT JUR Ri: PO qu Bzad? T 
d COVU E ada HEM LET y=u+8: LET x=x+8: POKE 6 
s950 IF IN 2()243 THEN GO TO 600 coo=[is. RANDOMIZE USA SOBIL. PO 
Fi "E 50005,5.. POKE 60000,x: POKE 6 
4902 PRINT INK s;: RESTORE 9900: aoGi,u: t=wusl: e ZE USE 
SÚRE CoBoa x. RANDOMIZE USA 600  SOlL,s: LET w=usl: RANDOMI 
ana 0095 ,29: RANDONIZE USFR 3565 IF (uz0 OR w=4) THEN GUTO 6000 
Bio d À - 


| continua no proximo numero ) 


CLUBE Ze 


= 1 


E 


COMO VAI O SEU CONHECIMENTO DE BASIC 


Programa para testar os seus conhecimentos sobre 
o «BASIC» e sobre a lógica do seu computador. 


Escreva e grave este programa. Teste o seu saber de 
programador ou até de informático. Se alguma coisa 
correr mal, não fique desiludido; procure esclarecer 
os motivos das suas falhas. 


Programa em BASIC (dialecto p/ SPECTRUM). 


10 REM Alexandre Sousa LOG Set.-84. 


Quando aprendemos Matemática na Escola, o sim- 


bolo = 


significa sempre «igual a» ou «tem o mesmo 


valor que». 


Por exemplo: 


O + 4 = 10 

XEY)F(X =Y)=X*X = y +y 

3X 6 + 4 = 22 
Em BASIC o sinal = é usado com sentido diferente, 
nenhum dos quais com o sentido do «igual» da 
matemática. 


a) No caso do comando LET o = 


significa: atribuir 


o valor de o comando LET é uma instrução para 
O computador calcular o valor da expressão 
situada à direita e colocar esse valor na posição 


de memória designada com o nome que está à 
esquerda. 


LET X = Y 


+ 2 significa que o computador é 


informado, não de que o X tem o mesmo valor 
que Y + 2, mas sim que deve atribuir o valor de 
Y+2,à variável que tem o nome X. 


b) LET a+1=a não é válido em BASIC. O co- 
mando correcto é LET a = a + 1. 


Cc) LET W=Z não tem o mesmo valor de LET 
Z = W (mas são ambos comandos válidos em 
BASIC. 
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DIM 


DIM F$(5S.,.30) 
LET MHidtzO: 


CEidis o N 


(q,50): mizg+9:: D 


a É 
tl “+35 q+2: 


TO à: RERD 
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CoMO VAI O SEU CONHECIMENTO DE BASIC ? 


SS 


12798 Aid i=i TO à: READ wEtg): N 1390 LET x=0 
EXT aa 1595 FOR w=1l TO 2+q 
12080. FOR 1=1 TOS: READ F&tld): N 1395 IF miwy)=1 THEN LET x=x+12 
EXT Te 1397 NEXT wu 
1085. FOR j=1i TO q: LET sgig)= 1395 IF x=q AND jg=1 THEN GO TO 3 
NEXT q DO 
1290 FOR J=Q TO 2 1400 PRINT ”* Tens "“;jx;" das "“;q 
1905 IF 4=1 THEN RESTORE 100 “ perguntas” 
11090 FOR s=1l TO q 1402 PRINT º certo.": PRINT 
1119 READ 0g: READ Ag: READ Hg: PRINT o 
RERO G& 1415 PRINT Eg&CI+INT ix+4.5/9)15: 
1115 IF mis)=1 THEN GO TO 1385 DRUSE 200 
1117 CL5 : PRINT O: PRINT o: PRINT idca NEXT q 
" Esta pergunta e a num. “ss =0090 PRUSE 190: CLS 
1118 PRINT : PRINT 3010 PRINT AT 4,0; Pretendes r 
1120 LET z&=068: GO SUB 4200 econecar?" 
1125 PRINT : PRINT : PRINT : PRI sge20 PRINT " Caso afirmativo, 
NT CS ENTER. 
1130 GO SUB 50084: CLS 3025 PRINT “ Caso contrario Neo 
1131 IF LEN d$>30 THEN PRINT : P 3030 LET Us=INKEYS: IF gg="" THE 
RINT : PRINT “ Desculpa, demasia N GO TO 3030 
do Longa.": PRINT “ Da Uma respo =z035 IF INKEvV$&<>"" THEN GO TO & 
eta mais curta.”: PRUSE 100: GU as 
TO Iii Z9dQa IF us=CHR$& 83 OR yg=CHR$ 121 
11392 IF jz=z1 THEN GO TO 11937 “5 THEN RESTORE : GO TO 10 
1135 LET Sgis,li TO LEN d$) =dé 3945 IF us=CHR$ 78 OR UH=CHR$ 11 ' 
1137 IF (tdg="ajuda” OR d$="AJUDA O THEN NÉU € ê 
“Y THEN LET mis+4+q)=2: PRINT AT 3od?7 GO TO 3038 
5,0," A resposta Ee PRINT 358050 STOP 
- PRINT PRINT º G & 218 LET LLL=LEN Z5 
1135 IF d&=5éis,i TO LEN dg) AND 1920 LET jJ4$="": LET ppp=l 
i=1 THEN PRINT : PRINT o: PRINT 230 IF PPPSLLL THEN So SUB dO 
z Iaval a primeira resposta!”: - RETURN 
GU TO 2120 040 IF z&ippp)J="R" THEN GO SUB 
1148 LET tL=LEN ds 1960: LET ppp=ppp+l: LET qgg="": 
1150 LET bg="" so TO 409030 
1160 FOR m=1 TO Li 4045 IF z5(ppp)="2" THEN LET a = 
od IF asim) =" “ THEN GO TO 229 4 RR RE 34: LET ppp=ppp+1: GO TQ 
; 4 
1180 LET b&E=bg&+I5E (mM) 4950 LET Jdg=jE+rzE(pppjJ: LET PPP= 
1190 NEXT m ppp+l: GO TO 49030 
1200 IF bã= ajuda. THEN LET mis+ igeso PRINT o“ “4%: RETURN , 
(1+Q)I=2: pi TO 1290 1070 LET LLLL=LEN dg: LET qa=29 
to dy LET P= as 2450 IF Lili<=ga THEN PRINT e"; 
iza TF p >LEN ag THEN GO TO 1255 1%: RETURN 
1225 PRINT e ; 2090 IF isgitgqa+e1)=" THEN PRINT 
1230 LET n=P CCidgi TO qq: LET Jã=461 iqa+e T 
12d0 IF asini<> 4 THEN LET nan+ DI: GO TO dI7U 
1: G0 TO 1240 2109 LET Ppppp=q4 
1250 IF Asip TO n-l)=bg THEN LET 4110 IF JS ipPppp)<>O “ THEN LET P 
n(s+4%q/)=1: GD TÔ 1285 epp=pppp-l: GO TO 4110 
1260 LET E=n+1l: GO TO 1220 «120 PRINT O “;jgEL TU PPRPP- E). L 
1278 IF Agini="4" AND Agin+1 TO ET Jg=)5ippeP+Ã TO): GO TO 4070 
Ki=zbg& THEN LET mis+d+4q1=12 EODO LET x$g="": LET px=O: LET ta A 
1290 PRINT : PRINT : PRINT : PRI =) |) 
8 A ERge PRINT o" 
dd IF mis+ij+qi)=8 THEN PRINT SOS FLASH A: PRINT * ra PLASN 
ug LL+INT is 5RND)) &: PRINT CHR$ 
1500 IF mis+9)$49)=1 THEN PRINT r& Bolo LET ISS INKÉVS: IF uga"“ THE 
Li+INT iS+RND)S H'H GO TO BOIJO 
1310 IF misi=2 AND j4=0 THEN PRIN EBO1S IF J&<>CHRS 12 THEN GO TO 6 
T “Repara '';: LET zZz$=H$: CO SUB SA 
300 020 IF px=0 THEN GO TO 6690 
1312 PRINT : PRINT : PRINT EDS BEEP .1,0: LET x&=xgi TO px 
1314 IF mis+91<590 OR g=0 THEN GU -11: LET px=px-l: PRINT OO “5 CHRG 
TO 1320 Ss: CHR$ B;" “;CNRE SB; 
1315 PRINT “ à resposta e: PR B05S0 LET U$E=INKEYS: IF ygE<>0" TH 
INT : PRINT o: PRINT o: PRINT é EN GO TO 6090 
“as PRINT G& 5055 GO TO E90S 
1320 IF j=0 THEN GO TO 1355 End IF CODE uUug=13 THEN BEEP .2, 
1325 PRINT : PRIHT E. GO TÚ 5050 
1330 IF mis)=z2 AND mis+q) =0 THEN 595a IF CODE (ug! <52 OR CODE lug 
PRINT " ARinda errado! Le” PRI 15127 THEN GO TO 6030 
NT O a seccao seguinte de novo: 50s5 BEEP .1,12: PRINT ug;: IFÕU 
o PRINT Oo" a E=CHR$ 34 THEN LET gã&="8" 
1340 IF mi=z)=2 AND mis+9) =2 THEN DOS? LET xg=x6+95: LET px=px+a: 
PRINT Le esta Seccao de novo so TO EVI30 
antes de comecares: SAGA LET ecg=x6 
1345 IF mis)=2 Ab JD mis+q)=1 THEN EOSo LET dg="" 
PRINT Repara”; E100 FOR 1=1 TO LEN eg 
1350 IF mis)=Q BNÔ m(s+9) =1 THEN E1lO IF CODE eg(i)<65 OR CODE “eg 
PRINT E Ae :11>90 THEN GO TO 62190 
1360 IF miz)=0 AND mís+q)=2 THEN 5128 LET dg=dE+CHRE LS2+CODE egi 
PRINT O Les; 11): GO TO Gidy 
1370 IF mis) =zà AND mis+q) =0 THEN 139 LET dg=df+r+eg (is) 
| PRINT Faz uma revisao: Eidd NEXT à 
1380 LET z&=H&: GO SUB 4900 =154 RETURN 
1382 PRUSE 150 “9808 REM 
1385 PQUSE 78: NEXT s 200 STOP 


CLUBE Zgso 
SR EEE NE ND E SR ga ES PE O OO PRESIDENT (SP o ep Sage 
Como vai o seu conhec. do Basic (CONT.) Ground Attack (CONT) 
ESA E 
5100 INPUT zg 4016 PRINT AT 2,9; "GROUND ATTACK 
S1190 GO SU 
31290 G0 TO SIGO” “di? pr go EA AT q D; A a, s 
3010 LET L=LEN j era Obtida como se''“'“segu 
920 LET hos ni Nivel de dificuldade escolhido 
2950 FOR m=zi TO “e um sed ER o PRO que est 
3053 = go radar a descer. 
POSSE dC cone, E MEN RES d éo1s PRINT BT dé ,1; "Quando acert 
304 E “ Uma Nave inimiga!" *"o 
ia O IF igim)=" THEN GO TD 996 Pontos mais O tempo, ide a 
2950 e = Tr T ;1;"Se e Ú 
35060 NEXT" É SAR E negativo,o tempo"“sera deduzido 
3070 LET ig="" da pontuaçao. 
32580 FOR m=z1 TO LEN Ug 2220 PRINT Bo; 'BOA SORTE." 
5090 IF CODE | Ugim)<6S OR CODE US$ e RS Prima uma tecla p 
hs > HEN GO TO S1lg " 
3100 LET ig=i &+CHR$ (32+CODE U$Í ddaz PAUSE 1: PAUSE Q 
m)) SO TO 9120 4ave3S CLS : RETURN 
3110 LET ig=i$+US(m) S000 BEEP .5,0. BEEP .5,-10: PRI 
3120 NEXT m NT AT 10,11, PAPER &; INK o; "FIM 
3138 RETURN DU JOGO 
3500 CLS : BORDER S: READ ch 010 FOR I=1 TO 200: NEXT I: IF 
5510 PRINT AT 4,0; “Com este test 5c>h$ THEN GO SUB 5100 
E pretendo saber os" 3020 G0 TO 10 
r$p2o PRINT * Teus conhecimentos 2100 PAPER 1: INK 7: FLASH 1 
Sbre 0” SilQ FOR izi TO ad 
=525 PRINT " Capítulo “; 120 PRINT AT 120,11;" NOVO “a 
ERA go BEEP .25,10 | 
3530 PRINT Reco Las LO, dd; O ALTO f 
3540 PRINT " c - 25, 
Rida sea SS EFEvE de Paspo Sl40 PRINT AT 10,11;" SCORE 
3950 PRINT " As perguntas que t GEEP ,25,15 
SAS Bar” Ed 
ENTER ENT ia 5170 PRINT AT 10,2;"Por favor en 
35º0 PRINT : PRINT “ nao "re O seu no Ea 
beres as respostas,» “! NãO SOU 5150 INPUT LINE AS 
3580 PRIN = r a 2 ve ny = 
rh ENT tou SE eve ajuda e Boo Erruna 
apa PRINT" O SPECTRUM ajuda 
PTE -a 2 
3500 PRINT : PRINT" Acciona UM APELO AO ENGENHO DOS SÓCIOS 
qualquer tecla" E 
a E ao no EINE IF x&="" THE “Pretende-se que algum sócio tente 
3620 RETURN elaborar um programa para classifi 


cação de competições columbófilas, 
tendo em atenção que devem entrar 
em conta com oc facto de os pombos 
partirem do mesmo local e chegarem 
a pontos diferentes, tendo de ha - 
ver ajustamentos finais de tempos 
em função das distancias quilomé- 
tricas, para ser elaborada a clas- 
sificação final,” 

Este pedido foi dirigido ao Clube 
280) pelo SINDICATO DOS BANCÁRIOS 
DO SUL E ILHAS - SECÇÃO REGIONAL 
DE TORRES VEDRAS que agradece a me 
lhor atenção dos sócios, 

Cá ficamos à espera da vossa cria- 
tividade, | 


TENÇÃO! -INTe À LINGUAGEM MÁQUINA 


No mês passado (Sete/84, n224), a 
rubrica INTRODUÇÃO À LINGUAGEM MÁ 
QUINA saíu com algumas gralhas ti 
pográficas para as quais FERNANDO 


PRECES nos alertous 

Dado que elas comprometem a compre 
ensão de partes com interesse, pu 
blicaremos no próximo número as 
respectivas correcções. 


SAIBA QUANDO TERMINA A SUA ASSINATURA 
"[][["[][""TJ2ASVVA ASSINATURA 


QUANDO RECEBE A REVISTA DO CLUBE Z80, A 
ETIQUETA COM O SEU ENDEREÇO INCLUI UM NÚ- 
MERO ANTES DO NOME QUE SIGNIFICA O FIM DA 
SUA ASSINATURA. OS DOIS PRIMEIROS ALGARIS- 
MOS REFEREM-SE AO ANO; OS OUTROS DOIS RE- 
FEREM-SE AO MÊS. 

EM DLL me somiernscsesoae ANOME e T 


bro de 1984 esta Assinatura Termina 


ZX81 NOVO, NUNCA USADO. 


PELA MELHOR OFERTA. 


CONT. : CARLOS ALVES 
689229 /PORTO 


Em Nove 


f<& OD: EO >j DÓ STR. CLUBE Zo 


2 
COMO DEFINIR SIMBOLOS OU CARACTERES NO SPECTRUM 
e eee 


Cada caracter pode ser apresentado no écran do 
monitor como uma grelha de 8x8 ou seja 64 pontos. 

Quando é apresentado um caracter e o olho hu- 
mano o observa, pode ver que alguns pontos são 
brilhantes, outros pontos são escuros e outros ainda 
estão tão juntos uns dos outros que a vista não os 
consegue diferençar e apresentam uma forma con- 
tinua. 

Por exemplo a letra «d» é formada por uma 
matriz ds pontos: 


Quando necessitamos de desenhar um novo ca- 
racter ou criar um símbolo que não existia, podemos 
fazê-lo usando como primeira regra um desenho num 
quadrado de 8x8. 

iremos preencher as células (64) de acordo com 
o desenho a criar. Cada célula pintada de negro irá 
corresponder ao número 1 e cada célula em branco 
irá corresponder ao número O. 

Por exemplo, o símbolo — pode ser criado da 
seguinte forma: 


o0oOooOoa-a ooo 
Oo 0ooOoaaSOoo 
o oOo0o0aa Ooo 
-. O O à a DO a 
d + O à —+ÀãO di a 
Oda aa aa so 
O0OasasJsoso 
OSoossõdoodo 


QUEM RESPONDE? 


«Qual o «port» utilizado pelo joystick da Kem- 
pston e como proceder para o utilizar em programas 


próprios, sem ser em jogos comerciais?» 


Manuel Luís C. Borrões 
Rua do Raimundo, 60-2.º 
7000 ÉVORA 


Depois do novo símbolo estar criado teremos de 
o incluir no programa onde o queremos usar. Para 
isso, iremos escolher uma das letras (O SPECTRUM 
NÃO PERMITE y ou z) de 21 à escolha, para desig- 
nar como nosso símbolo gráfico. Por exemplo se- 
leccionamos a letra «f» de flecha. 

Em seguida teremos de incluir a informação em 
linhas de DATA. 

A primeira linha será correspondente à letra es- 
colhida para designar o símbolo ou desenho. Agito 
linhas seguintes representam as 8 linhas de ze;vs e 
uns que definem o nosso desenho. Cada linha é pre- 
cedida de um símbolo especial BIN (binário). 

100 DATA «a», BIN 00011000, BIN 00001100, 
BIN 00000110, BIN 11111111, BIN 11111111, 
BIN 00000110, BIN 00001100, BIN 00011000. 


O próximo passo será o de incluir esta parte de 
BASIC no programa onde pretende usar o simbolo 
criado. 

Para isso terá de introduzir na memória o código . 
Binário definido na linha de DATA. 


READ QS 

FOR J=0 TO 7 

READ R 

POKE USR QS + J, R 

NEXT J 4 


Se tiver mais do que um símbolo definido, o 
ideal será usar um ciclo FOR/NEXT e ter as linhas de 
DATA em posição de serem facilmente «digeridas» 
pelo seu programa. 

Quando quiser usar o simbolo definido, bastará 
premir a tecla de GRAPHICS e a tecla A para o seu 
símbolo — aparecer no écran. (PRINT «a» (em modo 
Graphics) ). : 


LOG 'Outubro 3, 84 


Se quer fazer com que c BORDER acom- 
panhe a mudança da cor do PAPER faz: 


10 BORDER n:INPUT ”” 
20 GOTO 20 


CLUBE Z so = ESET 
Ca e me TESTE EE = 0a DR 


e ei e iai 


ROTINAS E UTILIDADES do Spectrum £ a continuar em Novembro) 
ii ese a an 


30 PAPER 7: INK QU: BRIGHT O: E 


í, 


ORDER 7: CLS | 
Z0 LET vieu=127: LET point=ága: 
=> LÊ] tai 
“sy FOR 1=) TO ab 
ROTINA 1 bo RERD a,b.t,a | 
ta PLOT a,b: PLOT view,point: 
| DRAL OVER z;a-view,b-point: PLOT 
Esta rotina pode ser usada para criar melhores | ac ted PA tada DRAW UVER Z;a-vieuw, 
Eb -Po 
efeitos nos seus programas. EO PLOT Cod: PLOT view duda it 
A DRBU DUER Z;c-view,d-point: PLOT 
Uma imagem no écran é construída a partir de vieu,point: DRAW ÓVER Z; C-vieuw, 
de um laser que acompanha o desenvolvimento da d-pornt 
linha So PLOT a,b: DRAW c-a,d-b 
R o PLOT ÔUER L;vi oint 
epare que, atribuindo o valor O a Z, na lin 110 PL. ;jview,poi 
o tida ER py E, 140 DATA 7,127,7,83 
à imagem retomarã uma forma tridimensional. 1590 DATA 7,31,55,931 
lbo DATA 55,31,55,45 
170 DATA 21,45,55,45 
196 Gar iltasei idas 
Asi D — e. 3 s 
ROTINA 2 200 REM e i 
Eq . É ã R pa, E es = , « ' 
Em código máquina, esta pequena rotina pode Seo DETR iss ,3i. 135, 127 
ser usada para alterar atri 220 DA CU, lar,d 
p "Sinos dados ao écran sem 250 DATA 94 45. 121,45 
este ser «limpo». O código é completamente recolo- 260 DATA 95,45,94,113 
élval 2"0 DATA 94,115,121,113 
? 280 DATA l121,113,121,45 
Quando fizer RUN ao programa, deverá intro- does ra 161,31,2185,914 
duzir o endereço onde pretende que fique o código 310 DETE 161,51,181/127. 
máquina, ante á 320 DATA 161,: , 
a s de ser colocado (POKED) na me 350 DATA 215/127/215/113 
gas 266 dará Fis HS iss aos 
| Como a rotina é muito pequena, pode colocá-la e ER 15/45, 481,45 
acima da RAMTOP e chamá-la para uso nos seus 3*9 DATA 201,45,201,65 
359 DATA 201,55,1998,65 
programas. 330 DATA Pato: Did 
Geralmente, para : 4SYy DATR 1990, se. 
| p Se trocar os atributos do écran, 410 DATA 215/75. 515 : 3 
faz-se do seguinte modo: 
10 INPUT “endereco";a 
Com esta rotina, use-a sob a mesma forma mas: E NERD TO a=15 
— 
INK 7: PAPER 0: RANDOMIZE USR (endereço a Neves 
inicial) 15 DATA 56,141,92,33,0,88,17,1 
| 15 ANT grava º 
NOTA: Funciona para qualquer comando, incluindo BRIGHT 17 SAVE “co ES"CODE a 16 
e FLASH 15 PRINT “prepara a cassete e 
actciona qualquer tecla para 
VveTtiriaCcareês." 
13 PAUSE q 
20 VERIFY “cores"CODE 
El aaa .aravaçao OK 
: . , o. a t , | EE T - 
3) Se quiser tornar uma linha invisível, faça à rotina jaz CLEMR [per tis 


o EDIT dessa linha e depois: 
CAPS SHIFT + SYMBOL SHIFT (simultâneo) 
CAPS SHIFT + 7 (simultâneo) 9) O tempo do início de repetição de um co- 
mando pode ser alterado com: 


4) Se quiser produzir uma linha zero, primei- POKE 23561,n 


ro dê entrada da linha 1 e depois: | 
(o espaço de tempo varia de 1 a 255 conforme o 


POKE (PEEK 23635- 256% PEEK 23636) +1,0 valor atribuído & n). 


22 200 To qd 0  D . 


18 a CLUBE Zao 
A Ra Ren 


JOGOS 


1994 
AD ASTRA 
ADVENTURE 
AH DIDDUMS 
ALCHEMIST 
ALIEN SWARM 
ANDROID | 
ANDROID tl 
ANT ATTACK 
APOCALYPSE 
AQUAPLANE 
ARCADIA 
ARMAGEDDON 
ASTRO BLASTER 
ATIC ATAC 
AUTOMONOPOLI 
BACKGAMMON 
BATALHA 
BLINO ALLcY 
BRIDGE 
BUGABOO 
CASTELO 
CHEQUERED FLAG 
CHESS TUTOR 
CHINESE JUGGLER 
CHUCKIE EGG 
COBALT 
COMBAT ZONE 
COOKIE 
COR. DE CARACÓIS 
COR OF GENON 
COSMIC GUERILLA 
COSMIC RAIDERS 
COSMOS 
CRUSING 
CYBER RATS 
CYRUS CHESS 
DALLAS 
DAMAS 
DEATH CHASE 
DERBY DAY 
DETECTIVE 
DEVILS OF DEEP 
DITADOR 
DO-DO 
DOMINO 
DOOMSDAY CASTLE 
El. 
EMBASSY 

| EVEREST ASCENT 
FEUDAL OVERLORD 
FIGHTER PILOT 
FIREBIROS 


RICHARD SHEPHERD 

ROBON 

ROLETA 

ROMAN EMPIRE 

ROMMEL'S REVENGE 

AUTOMANIA 

BARMY BURGLER'S 

BEAKY AND EGG SNATCH 

BEAR BOOVER 

BIRDS AND BEES 

BLACK PLANET 

BLUE THUNDER 

BRUM-BRUM 

BUGA BOO 

CAESAR THE CAT 

CITY 

CODE NAME MAT 

COMBAT ZONE 

CONFRONTATION 

CRAZY BALLOONS 

CRYPT 

DREAD NAUGHTS 

ET.X. 

ESKIMO EDDIE 

FALL OF ROME 

FOREST 

FRED 

FULL THROTTLE 

GALACTIC ABDUCTORS 

GALACTIC TROOPER 

GAMAO 

GANSTERS 

GLOBO DE LUZ 

GOLF 

GRID RUN 

GROUCHO 

GUARDIAN 

HOBBIT 

HULK 

HUNCKY 

INV. FORCE 

ICEBERG 

JACK AND THE BEENSTAL 

JET SET WILLY 

JOGO DE SETAS 

JUMBLW 

KAMIKAZE 

KNIGHT DRIVER 

KONG 

KRAKATOA 

L. SRAKER 

LUNAR RESCUE 

MACRO CONSTRUCTION 
AND ANIMATION 


CLUBE 


FOOTBALL MANAGER 
FRENZY 
FROGGER 

FUGA 
AUTOMONOPOLY 
BLACK CRYSTAL 
BLACK HOLE 
CENTIPEDE 
CRICKET 
DIMENSION DESTRUCTO 
GENON 
GLUG-GLUG 
GOBBLEMAN 
GORGON 
GROUND FOR O 
HALLS 

HUNCH BACK 
JAWZ 

JUNGLE FEVER 
JUNGLE TROUBLE 
LAST SUNSET 
LUNAR JETMAN 
MAZIACS 
METEOR STORM 
MICROBOT 
MILLIPEDE 

MINED OUT 
MISSILE 
MOI-REVERSI 
MOLAR MAUL 
MONOPÓLIO 
MONTERS IN HELL 
MR. WIMPY 
ÔMEGA RUN 

ORB 

ORBITER 
PACMAN 
PAINTER 

PANIC 

PARA TROOPERS 
PARMY BURGER'S 
PATROL 
PENETRATOR 
PIMANIA 
PINBALL 
PLANETOIDS 
POKER 

POOL 

PSSST 

OS CHESS 
QUEBRA TOLAS 
RACE FUN 
RAIDERS 

RED BARON 
REDWEED 


2805 


MANIC MINER 
MATCH POINT 
MAZE RACE 
MICRO MOUSE 
MOON ALERT 


MORRIS MEETS THE BIKERS 


GALATIC PATROL 
GALAXIANS 
GALAXY ATTACK 
GANGSTERS 

GLOBO DE CRISTAL 
GOLDEN BATON 
GROUND ATTACK 6” 
GULPMAN 
HANDICAP GOLF 
HARD CHEESE 
HARRIER ATTACK 
HEATHROW 

HIGH NOON 
HORACE SPIDERS 
HORACE SKIING 
HUNCH BACK 
HUNGRY HORACE 
HUNTER KILLER 
INCA CURSE 
INVASION FORCE 
JACKPOT 

JETMAN 

JETPAC 

JOGOS 20 

JOHNNY REB e 
JOUST 

JUMPING JACK 
KNOT 

KRAZY KONG 

L— GAME 

LUNA CRABS 

MAD MARTHA 
MAD MARTHA II 
SAMURAI WARRIOR 
SCHIZOIDS 
SCRABBLE 

SCUBA DIVE 
SENTINEL 
SHADOWFAX 

SHIP OF DOOM 
SIMUL. DE VOO 
SKIING 

SLIPPERY SID 
SMUGGLER'S COVE 
SPACE INTRUDERS 
SPACE WARS 
SPAWN 3D 

SEPC CHESS 


“e 


SPECTRES 
SPEED DUEL 
SPIDERS 

SPLAT 

SPY 

STAR TRAIL 
STARS WARS 
STASTEROIDS 
STONKERS 
STRIKE ATTACK 
STYX 
SUBMARINO 
SUN-PUZZLE 
SUPER BALL 
SUPER CHESS 
SUPER SOM 
SUPER SPY 
SWARM 

TANX 

TERROR DAKTIL 
THE TRADER 
THRUSTA 
TIME-GATE 
TOBOR 

TOWER 

TRAIN GAME 
TRANSYLV. TOWER 
TRANSZAM 
TRAVESSIA 
TUNNEL 

TURBO DRIVER 
VALHALLA 
VINGADOR 
VIOLENT UNIVERSE 
VOICE CHESS 
WHEELIE 

MRS. MOOP 
MUSGY 

NEW POKER 
NIGHT GUNNER 
OLYMPICS 
OMEGA RUN 
OMETRON 

ORC ATTACK 
PAKACUDA 
PAT, THE POSTMAN (48K) 
PHARAOH' TOMB (48K) 
Pi EYED 
PITMAM SEVEN 
PLOCKADE RUNNER 
POTTY PAINTER 
REPULSAR 
RIVER RESCUE 


S. ZEBRA 

SABRE WULF 
SEIDDAB ATTACK 
SKUIL 


"SLOT MACHINE 


SNATCHAS 
SORARY 

SPELL BOUND 

ST. BERNARD 
STOP THE EXPRESS 
TUNTANKHAMON 
WAR 70 

WARLOCK MOUNTAIN 
WILD WEST HERO 
YOMP 

XADREZ 

XANDOM 

ZIP ZAP 

ZZ00M 


UTILITÁRIOS 


ADRESS MANAGER 
ALEMÃO 
ALGEBRA 
ANÁLISE INVESTIMENTOS 
ASSEMBLER (ARTIC) 
ASSEMBLER (GENS 3) 
BIBLIOTECA 
BIOLOGY 
CÁLCULO DE ESFORÇOS 
E DESLOCAMENTOS * 
CÁLCULO DE PÓRTICOS * 
CIRCUITOS LÓGICOS 
COMPILER — MCODER II 
CONTA BANCÁRIA 
CONTAS BANCÁRIAS 2 
CONTAS CORRENTES 
CONTAS CORRENTES 2 
DATAFILE 
DISASSEMBLER (MONS 3) 
DRAW — (MELBOURNE) - 
ED. MUSICAL 
EDUCAÇÃO INFANTIL 
ELECTRONICS 
ESTATÍSTICA 
ESTRUTURA ATÓMICA 


ESTRUTURAS RETICULADAS 


FACTURAÇÃO 

FÍSICA 

FORTH 

FRANCÊS 

FUNÇÕES 

GAMES DESIGNER 
GEOMETRIA DESCRITIVA 
GESTÃO COMERCIAL 


GRÁFICO X/Y 

ÍNDICE BIBLIOGRÁFICO 
INGLÊS | 

INTEGRAIS 

INVENTÁRIO PERMANENTE 
INVESTIMENTOS 
KEYDEFINE 

KEYFILE 

LITERATURA INGLESA 
LÓGICA (MATEMÁTICA) 
LPRINT 

MARTER TOOLKIT 
MASTERFILE 

MASTERFILE 09 
MATEMÁTICA Il 
MATRIZES 

MICROPROLOG 

MORSE 

OMNICALC 

OP. INVESTIMENTO 
PAINTBOX 

PASCAL 

PERT/CPM 

POLINÓMIOS 

POWER GRAPHICS 

PROC. DE SALÁRIOS 
PROGRAMAÇÃO LINEAR (16K/48K) 
QUÍMICA 

RECTA (MATEMÁTICA - 10.º ANO) 
REGRESSÃO LINEAR (MULTIVARIADA) 
SALÁRIOS — SP 

SLOW LOADER 

SOFKIT 


* SPEAKASY 


STOCK 

SUCESSÕES FUNÇÕES 

SUPERCODE 

SUPERSOM 

TASWORD II 

TRANSFORMAÇÕES 
GEOMÉTRICAS /HOMOTETIAS 

VIGAS CONTÍNUAS * 

VU-3D 

VU-FILE 

VULCALC 


NOTA: 


Os programas assinalados (*) não são em- 
prestados pelo MERCADO Z80. 


20 


UT 


E 


se 


ILITÁRIOS 


INVENTÁRIO PERMANENTE — 500 produtos. 
Versão actualizada para microdrive e interface 1 
(impressora de 80 colunas). Codigo até 10 ca- 
ractéres: stock físico: quant. sob ordem: stock 
total: nivel para encomenda: quant. a encomen- 
dar: dados ao fornecedor (32 caracteres). 


FOTOCALC — Programa especiaimente dedicado 
aos adeptos de fotografia. Efectua cálculos, tipo 
de objectiva a utilizar, posição ds máquina em 
relação ao objecto... 


MECÂNICA — Programa didáctico para determi- 
nação do centro de gravidade, momentos de inér- 
cia e área de figuras compostas ou simples. Per- 
mite a cópia da figura para a impressora. 


CONTABILIDADE * POC * 


GESTÃO DE STOCKS 


JO 


Ve 
“a 


GOS 


EQUAÇÃO DE INVASORES — Jogo didáctico 


para as crianças treinarem na resolução das 


4 operações. 


DECATHLON (Ocean) — 1. iugar no top (Ingla- 
terra). Com as diferentes modalidades olímpicas, 
sendo os movimentos de facii! execução, controlo 
de tempo e espaço por contadores electrónicos, 
música e aplausos. 


TLL — Não se trata especificamente de um jogo 
arcádia ou de um simulador de voo, é um jogo 
com ambas as caracteristicas. Os gráficos são 
de excelente qualidade e a ares sobrevoada e 
incriveimente detalhada. 


KWIGHT DRIVER — Conduzes automóvel 
pelas ruas estreitas da cidades, evitando todos os 
obstáculos que possam levar ac acidente. 


um 


SUPER CHESS Ill — Jogo de xaarez com inú- 
meras opções que facultam desenvolvi- 
mento; acompanhando jogadas anteriores, o me- 
lhor movimento, soluções multiplas. As jogadas 
são pontuadas com bonus ou penalizações. 


O seu 


THE TURK — É também um jogo de xadrez, ba 
seado na história de um pseudo-robot que joga 
contra ti. Possui 6 niveis, relogio, permite gravar 
movimentos e tabuleiros, 
sora e demonstracão. 


copias para a impres- 


a 
““ 


BIRDS & BEES 


CLUBE Ze 


|! — Se conheces a 1.º versão, se 
gostas, vais adorar esta. Tem uma excelente 
execução musical e gráfica e o jogo é mais uma, 
novidade. | 


CAESAR THE CAT — Jogo de arcádia com bons 
gráficos e com uma história original. Caesar tem 
de presseguir e matar os ratos que roubam os 
alimentos de uma dispensa. 


BLADE ALLEY — Compatível com o sintetizador 
de voz e Kempston Joytick. Simulador de guerra 
no espaço, tridimensional, com 6 diferentes 
ecrans de acção. 


WORLD CUP FOOTBALL — Até 9 jogadores. 
Conseguirás levar a tua equipa à final das taças? 
Conduz os teus homens num écran 3D sob os 
aplausos constantes da assistência. 


3D PAINTER — Concerteza já conheces este jogo 
das máquinas vídeo. É exactamente uma tentati- 
va de cópia daquele pintor que percorre um labi- 
rinto 3D, fazendo pontos por cada espaço con- 
tornado. 


LUNATIACK — Simulação de uma batalha na 
superfície lunar, penetrando as zonas defensivas 
inimigas, enfrentando tanques, minas, misseis... 


KOSMIC KANGA — Kanga precisa da tua ajuda 
para encontrar a sua nave espaciai e de novo 
voltar ao seu planeta. 


LES FLICS — Jogo de arcádia onde entra a fa- 
mosa pantera cor de rosa. Tens de roubar um 
diamante, evitando encontros com a polícia e 
colectando os diferentes objectos que te vão 
aparecendo em cada fase. 


ROAD RACER — O desporto automóvel. Con- 
trolas um carro numa prova de automobilismo 
com um adversário que dificultará os teus movi- 
mentos. Precisas de bons reflexos para conse- 
guires chegar ao fina! da pista. 

ZIPPER FLIPPER — O já conhecido jogo de 
flippers é de possivel execução no SPECTRUM 
e a prova está neste jogo que te fará esquecer 
as populares maquinas de café. 


GLUG GLUG — Com excelente execução gráfica. 
És um mergulhador e a tua missão é apanhar os 
tesouros escondidos nas profundezas do oceano. 
Atenção às piranhas, tubarões ou quaisquer ou- 
tros animais que te apareçam. 


4 É à 


CLUBES CR MRMRR MRMMRÉÉ AR PU ITTJT 2058] 


UGH! — Tudo se passa no perícdo da pré-his- 
tória. Sais da caverna à procura de alimento, 
contigo levas uma pequena arma que te ajudará 
a prosseguir, combatendo os animais selvagens. 


PROGRAMA GESTAO DE STOCKS 


MENU 


ss 


ABERTURA DE FICHAS 
SELECÇÃO DO PRODUTO 
ALTERAÇÃO DE FICHAS 
MOVIMENTAÇÃO DE STOCKS 
ALTERAÇÃO DE PREÇOS 
COMPARAÇÃO GRÁFICA 
INFORMAÇÕES 

LISTAGEM DOS MÍNIMOS 
GRAVAÇÃO EM CASSETE 


pedpeaga 


1. 750 FICHAS 
10 CARACTÉRES P/ NOME 
3 CARACTÉRES P/ CÓDIGO 


2. 500 FICHAS 
20 CARACTÉRES P/ NOME 
4 CARACTÉRES P/ CÓDIGO 


Escolha a opção mais favorável. 
ATENÇÃO!!! 
e. 


Este programa só funciona 
com a impressora TS 2040 


impressão de mínimos atingidos apenas 


Também funciona com 
ZXPRINTER ou SEIKOSHA GP505 


«Vendo o programa Patinhas e outros que 
posuuo. Disponho de cerca de 500 programas, desde 
utilitários (supercode, compiladores, etc.), passando 
pelos educacionais (Phisics, Geometria, Etc.). Até 
aos recreativos (Jet Set Willy, Full Throttle, etc.). 
Se estiver interessado é favor contactar-me. Enviar- 


-lhe-ei a minha lista de programas. Preços baixissi- 
mos!» 


António Manuel Bastos Pereira 
Cabêço - Pessegueiro do Vouga 
3740 SEVER DO VOUGA 


TOP EM INGLATERRA . 


o 19 00 4 0 61 da Go io 


MAIS VENDIDOS NO CLUBE Z& 


BEACH-HEAD 1. MATCH POINT 
SHERLOCK HOLMES 2. SABRE WULF 
DALEY'S DECATHLON 3. FULL THROTTLE 
KOKOTONI WILF 4. TLL 

FULL THROTTLE 5. STOP THE EXPRESS 
AVALON 6. WORLD CUP 

MONTY MOLE 7. MICRO OLYMPICS 
SABRE WULF 8. LORDS OF MIDNIGHT 
LORDS OF MIDNIGHT 9. AUTOMANIA 

JET SE WILLY 10. COD NAME MAT 


/ 
AOS NOVOS SÓCIOS 


INTRODUÇÃO À LINGUAGEM MAQUINA 


O artigo «Introdução à Linguagem Máquina», da 
autoria de Fernando Preces, começou a ser publicado 
em Abril/83, no n.º 7 do CLUBE Z80. Desde esse 
número até ao n.º 17 (Fevereiro/84), o artigo diri- 
gia-se exclusivamente ao ZX81. 

A partir do n.º 18 (Março /84), essa rubrica 
passou a denominar-se «INTRODUÇÃO À LINGUA- 
GEM MÁQUINA — ZX81/Spectrum», condensando 
duas que até aí se publicavam separadamente («ln- 
trodução à Linguagem Máquina ZX81» e «Espaço 
Spectrum»). 


NÚMEROS ESGOTADOS 


Muitos sócios que não pertencem ao CLUBE 
Z80 desde a sua origem pretendem adquirir certos 
números atrasados, quer porque lhes interessam, 
quer para completar a sua colecção «CLUBE Z80». 

Alguns desses números têm esgotado com fre- 
quência e somos forçados a fotocopiá-los diversas 
vezes. 

Concluímos agora que teria sido mais lucrativo 
fazer uma reimpressão desses números, a partir do 
momento em que esgotaram: os sócios teriam as 
suas revistas com uma melhor apresentação e nós 
evitariamos o incómodo de as fotocopiar e enca- 
dernar. 

Assim, a partir de agora, os números que esgo- 
tarem só serão colocados à venda se o número de 
interessados justificar uma 2.º tiragem. Se você for 
um deles, inscreva-se na lista que dispômos para o 
efeito. 

Actualmente, os números esgotados são os se- 
guintes: n.º 8 (Maio '83), n.º 9 (Junho/83), n.º 12 
(Setembro /83) e n.º 15 (Dezembro 83). 
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